: repeat-string ( str n -- str' ) swap <repetition> concat ;

"ha" 5 repeat-string print