Scanf.scanf "%d" (fun n ->
    let rec loop r acc =
        if r = 0 then acc else loop (r / 7) (Printf.sprintf "%d%s" (r mod 7) acc)
    in
    print_endline @@ if n = 0 then "0" else loop n ""
)