Task

Write a procedure which accepts as arguments another procedure and a positive integer.

The latter procedure is executed a number of times equal to the accepted integer.




import Control.Monad (replicateM_)
 
sampleFunction :: IO ()
sampleFunction = putStrLn "a"
 
main = replicateM_ 5 sampleFunction