let rec f?(s=read_line()^" ")i d?(c=Char.code s.[i]-48)t=c<0||f~s(i+1)d(t+(32*i-i/2*44-19)*[|c;d;10|].(c/15));t mod(11-i/17)=0&f(print_string s=s.[String.index s '?']<-Char.chr(d+48);4)0 0;f~s 4(d+1)0;;f 4 0 0
Note that non-ascii characters in the above source code will be escaped (such as \x9f).