: compare \ n m --
  2dup n:= if "They are equal" . cr then
  2dup n:< if "First less than second" . cr then
  n:> if "First greater than second" . cr then ;