2018-06-22 20:57:24 +00:00
|
|
|
$ gforth
|
2013-04-10 21:29:02 -07:00
|
|
|
Gforth 0.7.0, Copyright (C) 1995-2008 Free Software Foundation, Inc.
|
|
|
|
|
Gforth comes with ABSOLUTELY NO WARRANTY; for details type `license'
|
|
|
|
|
Type `bye' to exit
|
2018-06-22 20:57:24 +00:00
|
|
|
ok
|
|
|
|
|
: f ( separator suffix prefix -- ) compiled
|
|
|
|
|
pad place 2swap 2dup compiled
|
|
|
|
|
pad +place compiled
|
|
|
|
|
pad +place compiled
|
|
|
|
|
pad +place compiled
|
|
|
|
|
pad count ; ok
|
|
|
|
|
ok
|
|
|
|
|
s" :" s" Code" s" Rosetta" f cr type
|
2013-04-10 21:29:02 -07:00
|
|
|
Rosetta::Code ok
|
