open Array let f?(b=init 21(fun i->String.make(if i=0then 20else 23-(i+1)/2*2)' '))s c=for i=0to 9do
let x,y=i*2-1,18-i*2in
let rec($)j?(v=j/3)?(h=j-v*3)a=a/2*2<a&()=b.(y+v).[x+v+h]<-"\\/\\".[h];a>0&j-1$a/2in
7$c"w$km<]_d|".[c s.[i]-48]done;iter print_endline b;;f(read_line())Char.code