let n = read_int ()
let rec f l m n = 
    if m = 0 then f l l (n-1) else if n = 0 && m = 0 then [] 
    else (string_of_int n) :: f l (m-1) n
let () = print_endline (List.fold_left (^) "" (f n n (n-1)))