//RUM baszás porgam algoritmus: (kiterjesztett)
//RUM (Cillper és Bascal leíró nyelvkeverék (oral-mix))

pina,fasz: real
feri: real[feri a szomszédokból]
sperma: longint[1..1000000]
lökjedjózsi: integer
mosmáunalmasszájjlerólam: nőivéletlenszeragysejtingerülethatárérték[1..1000]
jajmégnemakarombasszameg: integer:=1
megymég: coolean[.T.,.F.]
fityma: skin[.T.,.F.]
pózok: tömd[1..5]
csöngettekbazmeg!: váratlanul[.T.]

begin
jóeléglesz=nő(mosmáunalmasszájjlerólam)
do előzetesfelkiáltások
pózok[1]:='előlről '
pózok[2]:='hátulról '
pózok[3]:='oldalról '
pózok[4]:='szomszédasszonyt'
pózok[5]:='orrbaszájba '
ciklus amíg (megymég)
   acsoice(x1,y1,x2,y2,pózok)
   be(pina):=fasz
  ciklus amíg (férfi(orgazmus))
     ki(pina(fasz))
     be(pina(fasz))
     lökjedjózsi++
     if (lökjedjózsi>jóeléglesz)
        ki(nő('Álmosvagyok, húzd ki!'))
        exit
     endif
     if (csöngettekbazmeg!)
        ki('Apicsába!')
        exit
     endif
  ciklus vége
  ki(pina(fasz))
  if (férfi(orgazmus))
     if (lökjedjózsi>jajmégnemakarombasszameg)
        be(pina):=ki(fasz(sperma))
        ki(férfi('Hát ez jóvolt. Mosmá haggyá aludni!'))
     else
        ki(férfi('Azé jó volt?'))
        ki(nő('Nem, te fatökž!'))
     endif
  else
     ki(nő('Haggyá békén!'))
  endif
ciklus vége
end

procedure előzetesfelkiáltások
  if (fasz=NIL)
    ki('Forduljon urulógus szakorvoshoz!')
    ki(nő('inkábbferiveldugok'))
    fasz:=feri(fasz)
  else
    fasz:='fasz'
  endif
  if (fityma=false)
    ki(nő('Haha, te zsidó vagy?'))
  endif
  if (eletkor(nő)<18)
    ki('Liliomtiprás!')
    ki(férfi('A legszebb korban vagy!'))
  endif
  public ki(dzsoki('Rély apa egyetlen tévedése volt!'))
  public ki(rély('Inkább kimegyek a farmra!'),hereemelőnadrág)
return

Jelentős momentum, ezért kiemeljük, emlékeztetőnek:
  public ki(rély('Inkább kimegyek a farmra!'),hereemelőnadrág)