afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome: test-case ( n -- )
afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome ." something else"
afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomesee test-case
afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome.( You should see [3] 1 2 3 -> )
afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome.( You should see "zero": )
afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome.( You should see "one": )
afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome.( You should see "something else": )
afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome324 test-case
afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome.( You should still see [3] 1 2 3 -> )
afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome: test-case-2 ( n -- )
afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome ." something else"
afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomesee test-case-2
afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome.( You should once more see [3] 1 2 3 -> )
afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome.( You should see "zeroone": )
afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome0 test-case-2
afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome.( You should see "one": )
afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome1 test-case-2
afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome.( You should see "two": )
afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome2 test-case-2
afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome.( You should see "something else": )
afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome324 test-case-2
afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome.( You should still see [3] 1 2 3 -> )