def rep  /# s n -- s #/
     "" swap
     for drop
	over chain
     endfor
     nip
enddef

"ha" 5 rep print