let () =
  let a,b,k = Scanf.scanf "%d %d %d " (fun a b c -> a,b,c) in

  let los = Array.init k (fun i -> a+i) in
  let his = Array.init k (fun i -> b-i) in

  let lst = Array.to_list @@ Array.concat [los;his] |>
            List.filter (fun x -> x >= a && x <= b) |>
            List.sort_uniq compare
  in
  List.iter (fun x -> Printf.printf "%d\n" x) lst

