(require 'cl-lib)
(cl-loop repeat 5 concat "ha")