9 lines
109 B
Text
9 lines
109 B
Text
def rep /# s n -- s #/
|
|
"" swap
|
|
for drop
|
|
over chain
|
|
endfor
|
|
nip
|
|
enddef
|
|
|
|
"ha" 5 rep print
|