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@()