let ``No.48 ロボットの操縦`` () =
    let X = int <| stdin.ReadLine()
    let Y = int <| stdin.ReadLine()
    let L = int <| stdin.ReadLine()
    let a =
        if X = 0 && 0 <= Y then 0
        elif Y < 0 then 2
        else 1
    [abs X; abs Y]
    |> List.map (fun a -> a/L+ (if a % L = 0 then 0 else 1))
    |> List.fold (fun s n -> s + n) a
    |> printfn "%d"
``No.48 ロボットの操縦`` ()