main :: IO ()
main = solve . read <$> getLine >>= putStrLn

solve :: Int -> String
solve n = concat $ "1" : replicate (n - 1) " 3"