helloWorldNTimes :: [String] -> [String]
helloWorldNTimes xs = xs >>= (\s -> replicate (read s :: Int) "Hello World")
helloWorldNTimes :: [String] -> [String]
helloWorldNTimes xs = xs >>= (\s -> replicate (read s :: Int) "Hello World")
helloWorldNTimes xs = xs >>= (\s -> replicate (read s :: Int) "Hello World")