solve :: Int -> Int
solve n = read $ go n
  where
    go 0 = ""
    go 1 = ""
    go 2 = "1"
    go 3 = "7"
    go 5 = "71"
    go n = let (d,m) = n `divMod` 2
            in replicate d '1' ++ go m 

main :: IO ()
main = do
    n <- readLn :: IO Int
    print $ solve n