import Control.Monad
import Control.Applicative
import Data.List

main = do
  t <- readLn

  mapM_ (putStr . show) (solve t)
  putStrLn ""

solve :: Int -> [Int]
solve n
  | n == 2 = [1]
  | n == 3 = [7]
  | n >= 8 = (solve (n-6)) ++ [111]
  | n >= 6 = (solve (n-4)) ++ [11]
  | n >= 4 = (solve (n-2)) ++ [1]
  | otherwise = []