stratum by ksk

let($)=List.map
let rec(!)l=try!((@)[input_char stdin]$[]::l)with _->(fun l->print_char$List.rev l@l@['
'])$l;;![]

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

download

return to the top page