let(-)=Scanf.scanf"%s@\x09"String.sub let rec($)i n="** *"=i-1^i+40-3&i+1$n+1;" -"=i+9-2||i+1$n;Printf.printf"%d "n;i+1$0;;0$0
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page