Scanf.scanf "%d.%d %d" (fun v1 v2 t ->
    Printf.printf "%d\n" @@ (v1 * 10000 + v2) * t / 10000
)