main :: IO ()
main = solve . read <$> getLine >>= putStrLn

solve :: Int -> String
solve n
    | n `mod` 2 == 0 = replicate (n `div` 2) '1'
    | otherwise = '7' : (replicate ((n-3) `div` 2) '1')