Scanf.scanf "%f %f" (fun d p -> print_int (int_of_float (d *. (p /. 100. +. 1.))))