Scanf.scanf "%d %d" (fun n h -> let t = Array.init n (fun _ -> Scanf.scanf " %d" (fun t -> t)) in Array.iter (fun v -> Printf.printf "%d " (v + h)) t; print_newline () )