solve :: Int -> String
solve n = let (d,m) = n `divMod` 2
            in if m == 0
                  then replicate d '1'
                  else '7' : replicate (pred d) '1'

main :: IO ()
main = do
    n <- readLn :: IO Int
    putStrLn $ solve n