[ ( a b -- )
  2dup < [ ." a is less than b\n" ] ifTrue
  2dup > [ ." a is greater than b\n" ] ifTrue
       = [ ." a is equal to b\n" ] ifTrue
] is compare-integers

1 1 compare-integers
2 1 compare-integers
1 2 compare-integers