6 lines
147 B
Text
6 lines
147 B
Text
[ ( a b -- )
|
|
2dup ." a+b = " + . cr
|
|
2dup ." a-b = " - . cr
|
|
2dup ." a*b = " * . cr
|
|
2dup ." a/b = " / . ." remainder " mod . cr
|
|
] is mathops
|