let rec make_list n m =
    if n = m then [n] else n :: make_list (n+1) m
let rec string_of_list lst = match lst with
    | [] -> ""
    | f :: r -> string_of_int f ^ " " ^ string_of_list r
let () =
    let k, x = Scanf.scanf "%d %d\n" (fun a b -> a, b) in
    let str = string_of_list (make_list (x-k+1) (x+k-1)) in
    Printf.printf "%s\n" str