let () =
  let n = read_int () in
  let rec doit i acc =
    if i / 7 = 0 then i :: acc
    else doit (i / 7) (i mod 7 :: acc) in
  doit n [] |> List.iter (fun c -> print_int c);
  print_newline ()