RosettaCodeData/Task/Repeat-a-string/Racket/repeat-a-string-1.rkt

; fast
(define (string-repeat n str)
  (apply string-append (make-list n str)))
(string-repeat 5 "ha") ==> "hahahahaha"