let ``No.128 お年玉(1)``() =

  let N = stdin.ReadLine() |> decimal
  let M = stdin.ReadLine() |> decimal
  match M with
  | 0m -> 0m
  | _ -> (N / M * 0.001m)
  |> fun sum -> sum |> System.Math.Truncate
  |> stdout.WriteLine

``No.128 お年玉(1)``()