RosettaCodeData/Task/Repeat-a-string/Pure/repeat-a-string-2.pure

str_repeat n::int s::string = string $ take n $ cycle (s:[]);