8 lines
176 B
Text
8 lines
176 B
Text
over : 2 pick
|
|
2dup : over over
|
|
|
|
compare : 2dup = then " equals"
|
|
compare : 2dup < then " is less than"
|
|
compare : 2dup > then " is more than"
|
|
|
|
show : compare rot , sp ,t sp , nl
|