Scanf.scanf "%d %d %d %d" (fun px py qx qy ->
    let r = abs (px - qx) + abs (py - qy) in
    Printf.printf "%f\n" (float r /. 2.)
)