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
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page