#define system. #define system'math. #define extensions. // --- Program --- #symbol program = [ #var a := console readLine:(Integer new). #var b := console readLine:(Integer new). console writeLine:a:" + ": b:" = ":(a + b). console writeLine:a:" - ": b:" = ":(a - b). console writeLine:a:" * ": b:" = ":(a * b). console writeLine:a:" / ": b:" = ":(a / b). // truncates towards 0 console writeLine:a:" % ":b:" = ":(a mod:b). // matches sign of first operand ].