Scanf.scanf "%d %d" (fun n k ->
    let nn = Array.init n (fun _ -> Scanf.scanf " %d" (fun nn -> nn)) in
    Array.sort compare nn;
    Printf.printf "%d\n" @@ nn.(n - 1) - nn.(0)
)