let rec($)s?(c=input_byte stdin)i=try c<11&s$0="";s.[i]<-Obj.magic(+)s.[i](2-c mod 6);s$i+1with _->s;;print_string(read_line()$0)
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page