let rec($)d?(c=input_byte stdin/9)n=c-d<4&c$n+c/4;Printf.printf"%d
"(n/5-8);c$1;;2$0