let tRange = 10000.0 let v,t = let tmp = stdin.ReadLine().Split() |> Array.map(float) tmp.[0],tmp.[1]/tRange v*t*tRange |> int |> printfn "%i"