//RUM baszás program algoritmus (Bascal leíró nyelven).

pina, fasz: real
sperma: longint[1..1000000]
begin
fasz:='fasz'
be(pina):=fasz
ciklus amíg (orgazmus)
   ki(fasz)
   be(fasz)
ciklus vége
be(pina):=ki(fasz(sperma))
end