[ ( a b -- )
  2dup ." a+b = " + . cr
  2dup ." a-b = " - . cr
  2dup ." a*b = " * . cr
  2dup ." a/b = " / . ." remainder " mod . cr
] is mathops