Scanf.scanf "%d" (fun n ->
    let xy = Array.init n (fun _ -> Scanf.scanf " %d %d" (fun x y -> x, y)) in

    let calc f =
        Array.sort f xy;
        let x0, y0 = xy.(0) in
        let rec loop i acc =
            if i = n then acc else
                let x1, y1 = xy.(i) in
                let dist = abs (x1 - x0) + abs (y1 - y0) in
                loop (i + 1) (max acc dist)
        in
        let d1 = loop 0 0 in

        let x0, y0 = xy.(n - 1) in
        let rec loop i acc =
            if i = n then acc else
                let x1, y1 = xy.(i) in
                let dist = abs (x1 - x0) + abs (y1 - y0) in
                loop (i + 1) (max acc dist)
        in
        let d2 = loop 0 0 in
        max d1 d2
     in

    let m1 = calc (fun (x0, y0) (x1, y1) -> compare ( x0,  y0) ( x1,  y1)) in
    let m2 = calc (fun (x0, y0) (x1, y1) -> compare ( x0, -y0) ( x1, -y1)) in
    let m3 = calc (fun (x0, y0) (x1, y1) -> compare ( y0,  x0) ( y1,  x1)) in
    let m4 = calc (fun (x0, y0) (x1, y1) -> compare ( y0, -x0) ( y1, -x1)) in

    Printf.printf "%d\n" @@ max (max m1 m2) (max m3 m4)
)