반복문자열/임인택

~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.