main::IO()
main = do
  ni<-fmap read getLine
  putStrLn $ (if odd ni then '7' else '1')
             : replicate (ni `div` 2 -1) '1'