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