let p=print_char let rec($)(n::l)i=n<0&[0;n+1]@l$i||i<10&(p" #".[n mod 2];n/2)::l$i+1||(p ' ';l$0);;[|[-11;1;129;709];[-8;1;512;512;704;722;8];[-5;2;4;1021;4;0;458;255;511;511]|].(Scanf.scanf"%_s@#%n"(/)4)$0
Note that non-ascii characters in the above source code will be escaped (such as \x9f).