let rec f x=Printf.printf"%d
"(truncate x);x>0.9&f(x-.10.**(floor(log10(x-.0.1))));;f(read_float())