Scanf.scanf "%d %d %d" (fun a b c ->
    let ab = abs (a - b) in
    let ac = abs (a - c) in
    let bc = abs (b - c) in
    min (min ab ac) bc |> Printf.printf "%d\n"
)