let s,t=input_byte,print_string let rec(!)?(c=s stdin)n=c=48& !(n+1);c=49&(t(fst(h(g(g n-1))2 1));!0);t" ";!0and g a=if a=0then 1 else s stdin/49+2*g(a-1)and h n m l=let s,p=if m>n then"1",n else(h n(m+l)m)in[|"0"^s,p;"1"^s,p-l|].(p/l);;!0
Note that non-ascii characters in the above source code will be escaped (such as \x9f).