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

main = do
  t <- readLn

  putStrLn . id $ solve t

solve :: Int -> String
solve n
  | n == 2 = "1"
  | n == 3 = "7"
  | n >= 4 = (solve (n-2)) ++ "1"
  | otherwise = ""