Add mod function

lib/Minilisp.pm

@@ -271,6 +271,13 @@ my %stdctx = (
       }
     return $v;
   },
+  'mod' => sub {
+    my ($number, $divisor) = @_;
+    $number += $divisor while ( $number < 0 );
+    $number -= $divisor while ( $number >= $divisor );
+
+    return $number;
+  },
 
   # String comparison
   'string=' => sub { my ($a, $b) = @_; return to_lisp_bool($a eq $b); },