1 files changed, 13 insertions, 1 deletions
diff --git a/core.fth b/core.fth
index 85744a7..0f00ba8 100644
--- a/core.fth
+++ b/core.fth
@@ -1,7 +1,10 @@
+: *        m* drop ;
+: /        0 swap _/ ;
+: %        0 swap _% ;
+
 : cell+    2 + ;
 : cells    2 * ;
 
-
 : .        0 sys ;
 : emit     1 sys ;
 
@@ -92,6 +95,15 @@
 : 2*       2 * ;
 : 2/       2 / ;
 
+: /mod     2dup % -rot / ;
+: s>d      1 m* ;
+: */       >r m* r> _/ ;
+: */mod    >r m* 2dup r@ _% r> _/ ;
+: sm/rem   >r 2dup r@ _% -rot r> _/ ;
+: fm/mod   2dup dup >r ^ >r sm/rem swap dup
+           if r> 0< if r> + swap 1- else swap r> drop then
+           else swap 2r> 2drop then ;
+
 : cr       10 emit ;
 : bl       32 ;
 : space    bl emit ;