12 lines
306 B
Plaintext
12 lines
306 B
Plaintext
;;; Setup token reader
|
|
vars itemrep;
|
|
incharitem(charin) -> itemrep;
|
|
;;; read the numbers
|
|
lvars a = itemrep(), b = itemrep();
|
|
;;; Print results
|
|
printf(a + b, 'a + b = %p\n');
|
|
printf(a - b, 'a - b = %p\n');
|
|
printf(a * b, 'a * b = %p\n');
|
|
printf(a div b, 'a div b = %p\n');
|
|
printf(a mod b, 'a mod b = %p\n');
|