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