let a,b,k = Scanf.scanf "%d %d %d\n" @@ fun a b c -> a, b, c
let rec f x max i =
  if i = k || x > max then [] else x :: f (x+1) max (i+1)
let rec g x min i lst =
  if i = k || x < min then [] else if List.mem x lst then g (x-1) min (i+1) lst
  else x :: g (x-1) min (i+1) (x :: lst)
let ans = let l = (f a b 0) in List.fast_sort compare (l @ (g b a 0 l))
let () = List.iter (fun x -> print_endline (string_of_int x)) ans