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