let
rec
repeat_pattern s =
function
|
n
when
n <= 0
->
""
|
n
->
s^(repeat_pattern s (n-1))