let ``No.63 ポッキーゲーム``() =
  
  stdin.ReadLine().Split(' ')
  |> fun args -> args.[0] |> int, args.[1] |> int
  |> fun (len , len1) -> 
    match len % len1 , (len / len1) % 2 with
    | _ , 1 -> ((len / 2 / len1)) * (len1)
    | 0 , _ -> ((len / 2 / len1) - 1) * (len1)
    | _ , _ -> ( len / 2 / len1) * (len1)
  |> stdout.WriteLine

``No.63 ポッキーゲーム``()