Add modulo primitive and stubs for other procs

1 files changed, 10 insertions, 4 deletions

diff --git a/examples/arithmetic.bdl b/examples/arithmetic.bdl
index 83404e2..c3ff230 100644
--- a/examples/arithmetic.bdl
+++ b/examples/arithmetic.bdl
@@ -3,20 +3,26 @@
 ;;
 
 ;; Addition.
-(print "(+ 10 100) -> ") (+ 10 100)
+(print "(+ 10 100) -> ")   (+ 10 100)
 (print "(+ 1 -2 3 4) -> ") (+ 1 -2 3 4)
 
 ;; Substraction.
-(print "(- 100 75) -> ") (- 100 75)
+(print "(- 100 75) -> ")   (- 100 75)
 (print "(- 10 20 30) -> ") (- 10 20 30)
 
 ;; Multiplication.
-(print "(* 10 7) -> ") (* 10 7)
+(print "(* 10 7) -> ")  (* 10 7)
 (print "(* -1 66) -> ") (* -1 66)
 
 ;; Division.
-(print "(/ 45 5) -> ") (/ 45 5)
+(print "(/ 45 5) -> ")   (/ 45 5)
 (print "(/ 10 5 2) -> ") (/ 10 5 2)
 
+;; Remainder/modulo.
+(print "(% 45 5) -> ")     (% 45 5)
+(print "(% 45 7) -> ")     (% 45 7)
+(print "(% 120 45) -> ")   (% 120 45)
+(print "(% 120 45 8) -> ") (% 120 45 8)
+
 ;; Nesting operations.
 (print "(* 20 (+ 100 (- 50 30) (/ 300 3)) 10) -> ") (* 20 (+ 100 (- 50 30) (/ 300 3)) 10)