main :: IO () main = solve . read <$> getLine >>= putStrLn solve :: Int -> String solve n = concat $ "1" : replicate (n - 1) " 3"