5 lines
105 B
Text
5 lines
105 B
Text
with strings'
|
|
: repeatString ( $n-$ )
|
|
1- [ dup ] dip [ over prepend ] times nip ;
|
|
|
|
"ha" 5 repeatString
|