import Data.List (unfoldr)

main :: IO ()
main = readLn >>= putStrLn . concat . map show . reverse . unfoldr (\x -> if x == 0 then Nothing else Just (x `mod` 7, x `div` 7))