retroforth/example/Echo.retro

#!/usr/bin/env retro

This is a simple `echo` style example.

~~~
#0 script:get-argument
~~~

Then a simple loop:

- duplicate the argument number
- get the argument as a string
- display it, followed by a space
- increment the argument number

~~~
[ dup script:get-argument s:put sp n:inc ] times
~~~

And at the end, discard the argument number and inject a
newline.

~~~
drop nl
~~~