こっちはHaskell

main = do
mapM_ (\_ -> hello str) [1..]

hello [] = return ()
hello (s:ss) = do
putStrLn (s:ss)
mapM_ (\_ -> putStr "") [1..50000]
hello ss

str = "Hello World!! "