~cpp module RepeatStr where message target msg 0 = target message target msg n = message (target++msg++"\n") (msg) (n-1) repeatMessage msg n = putStr (message "" msg n)
~cpp RepeatStr> repeatMessage "CAUCSE LOVE." 5
~cpp CAUCSE LOVE. CAUCSE LOVE. CAUCSE LOVE. CAUCSE LOVE. CAUCSE LOVE.