main :: IO ()
main = readLn >>= putStrLn . solve

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