solve n
    | fst n7 == 0   = [snd n7]
    | otherwise     = (snd n7) : solve (fst n7)
    where
        n7 = divMod n 7

main = do
    n <- (read :: String -> Int) <$> getLine
    mapM_ putStr $ map show $ reverse $ solve n
    putStrLn ""