let(!)=print_endline let rec($)l?(r=read_line())i=List.mem i l&()= !r;!r;l$i+1and(@)n?(c=input_byte stdin)l=c=32&0@n::l;c>10&n*10+c-48@l;n::l$1;;0@[]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page