open String let rec(@)f?(s=f()^f()^f())?(l=length s/3)_=f@print_newline(for i=0to l/3-1do let($)a o=a*2+index"_| "s.[i*3+o+l]/2in print_int(index"d}hxqrb|`p"(Char.chr(3$ -l$0$1$2$l+1)))done);;read_line@()
Note that non-ascii characters in the above source code will be escaped (such as \x9f).