10 lines
387 B
Forth
10 lines
387 B
Forth
$ <i>gforth</i>
|
|
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
|
|
<i>: f ( separator suffix prefix -- )</i> compiled
|
|
<i>pad place 2swap 2dup pad +place pad +place pad +place</i> compiled
|
|
<i>pad count ;</i> ok
|
|
<i>s" :" s" Code" s" Rosetta" f cr type</i>
|
|
Rosetta::Code ok
|