For Loop by henkma

main=putStr$0#"print v"
x#m|x>9=take 36m|f<-shows$x+1=("for v"++f" = "++"10"!!min 1x:" to 9\n"++(x+1)#(m++f",v")>>=max"\n  ".(:[]))++"\nnext"

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page