Define fuck()=
Prgm
Disp How many times do you want to fuck
Local var
var := getKey(1)
Disp "okay",var,"fucks!"
var:=expr(var)
For index,1,var
Disp "Fuck!"
Disp "i hate school"
EndFor
EndPrgm