1*afc2ba1dSToomas Soome 2*afc2ba1dSToomas Soome 3*afc2ba1dSToomas Soome1 2 3 4*afc2ba1dSToomas Soome.s-simple 5*afc2ba1dSToomas Soomecr 6*afc2ba1dSToomas Soome 7*afc2ba1dSToomas Soome: test-case ( n -- ) 8*afc2ba1dSToomas Soome case 9*afc2ba1dSToomas Soome 0 of 10*afc2ba1dSToomas Soome ." zero" 11*afc2ba1dSToomas Soome endof 12*afc2ba1dSToomas Soome 1 of 13*afc2ba1dSToomas Soome ." one" 14*afc2ba1dSToomas Soome endof 15*afc2ba1dSToomas Soome ." something else" 16*afc2ba1dSToomas Soome endcase 17*afc2ba1dSToomas Soome cr 18*afc2ba1dSToomas Soome ; 19*afc2ba1dSToomas Soome 20*afc2ba1dSToomas Soome 21*afc2ba1dSToomas Soomesee test-case 22*afc2ba1dSToomas Soome 23*afc2ba1dSToomas Soome.( You should see [3] 1 2 3 -> ) 24*afc2ba1dSToomas Soome.s-simple 25*afc2ba1dSToomas Soome.( <-) cr 26*afc2ba1dSToomas Soome 27*afc2ba1dSToomas Soome.( You should see "zero": ) 28*afc2ba1dSToomas Soome0 test-case 29*afc2ba1dSToomas Soome 30*afc2ba1dSToomas Soome.( You should see "one": ) 31*afc2ba1dSToomas Soome1 test-case 32*afc2ba1dSToomas Soome 33*afc2ba1dSToomas Soome.( You should see "something else": ) 34*afc2ba1dSToomas Soome324 test-case 35*afc2ba1dSToomas Soome 36*afc2ba1dSToomas Soome.( You should still see [3] 1 2 3 -> ) 37*afc2ba1dSToomas Soome.s-simple 38*afc2ba1dSToomas Soome.( <-) cr 39*afc2ba1dSToomas Soome 40*afc2ba1dSToomas Soome 41*afc2ba1dSToomas Soome: test-case-2 ( n -- ) 42*afc2ba1dSToomas Soome case 43*afc2ba1dSToomas Soome 0 of 44*afc2ba1dSToomas Soome ." zero" 45*afc2ba1dSToomas Soome fallthrough 46*afc2ba1dSToomas Soome 1 of 47*afc2ba1dSToomas Soome ." one" 48*afc2ba1dSToomas Soome endof 49*afc2ba1dSToomas Soome 2 of 50*afc2ba1dSToomas Soome ." two" 51*afc2ba1dSToomas Soome fallthrough 52*afc2ba1dSToomas Soome ." something else" 53*afc2ba1dSToomas Soome endcase 54*afc2ba1dSToomas Soome cr 55*afc2ba1dSToomas Soome ; 56*afc2ba1dSToomas Soome 57*afc2ba1dSToomas Soome 58*afc2ba1dSToomas Soomesee test-case-2 59*afc2ba1dSToomas Soome 60*afc2ba1dSToomas Soomecr 61*afc2ba1dSToomas Soome 62*afc2ba1dSToomas Soome.( You should once more see [3] 1 2 3 -> ) 63*afc2ba1dSToomas Soome.s-simple 64*afc2ba1dSToomas Soome.( <-) cr 65*afc2ba1dSToomas Soome 66*afc2ba1dSToomas Soome.( You should see "zeroone": ) 67*afc2ba1dSToomas Soome0 test-case-2 68*afc2ba1dSToomas Soome 69*afc2ba1dSToomas Soome.( You should see "one": ) 70*afc2ba1dSToomas Soome1 test-case-2 71*afc2ba1dSToomas Soome 72*afc2ba1dSToomas Soome.( You should see "two": ) 73*afc2ba1dSToomas Soome2 test-case-2 74*afc2ba1dSToomas Soome 75*afc2ba1dSToomas Soome.( You should see "something else": ) 76*afc2ba1dSToomas Soome324 test-case-2 77*afc2ba1dSToomas Soome 78*afc2ba1dSToomas Soome.( You should still see [3] 1 2 3 -> ) 79*afc2ba1dSToomas Soome.s-simple 80*afc2ba1dSToomas Soome.( <-) cr 81*afc2ba1dSToomas Soome 82*afc2ba1dSToomas Soome 83*afc2ba1dSToomas Soome 84*afc2ba1dSToomas Soomebye 85