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

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