let rec($)x?(c=input_byte stdin)y=c>47&x$y*10+c-48;c>31&x*.float y$c/44;Printf.printf"%.f
"(x*.float y);1.$0;;1.$0