RosettaCodeData/Task/Arithmetic-Integer/Oforth/arithmetic-integer.fth

: integers (a b -- )
   "a + b ="   . a b + .cr
   "a - b ="   . a b - .cr
   "a * b ="   . a b * .cr
   "a / b ="   . a b / .cr
   "a mod b =" . a b mod .cr
   "a pow b =" . a b pow .cr
;