retroforth/example/Cat.retro
crc 660e52bdcb rename words in sys: to script: (old names still work in this release, but are deprecated)
FossilOrigin-Name: 1a43743f43076eb087ee4dd7fbfa96b8dfda2aa4ddcff41e6a5a9634ba6e239c
2020-09-14 19:55:02 +00:00

5 lines
85 B
Text
Executable file

#!/usr/bin/env retro
~~~
#0 script:get-argument [ s:put nl ] file:for-each-line
~~~