iterate-string ( STRING RULES -- string )


Vocabulary
L-system

Inputs
STRINGan object
RULESan object


Outputs
stringan object


Definition


:: iterate-string ( STRING RULES -- string )
[let
STRING length 10 *
<sbuf> :> ACCUM STRING RULES ACCUM iterate-string-loop
ACCUM >string ] ;