15 lines
454 B
Text
15 lines
454 B
Text
[ stack ] is int.chr
|
|
[ stack ] is int.str
|
|
|
|
[ int.str put
|
|
int.chr put
|
|
[] swap witheach
|
|
[ dup int.chr share = if
|
|
[ drop int.str share ]
|
|
join ]
|
|
int.str release
|
|
int.chr release ] is interpolate$ ( $ n $ --> $ )
|
|
|
|
$ "Mary had a lamb." char X $ "little" interpolate$ echo$ cr
|
|
$ "Mary had a X lamb." char X $ "little" interpolate$ echo$ cr
|
|
$ "Mary had a X X lamb." char X $ "little" interpolate$ echo$ cr
|