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