+( --- Complex arithmetic --- )
+
+( Location of floating point. )
+: precision 10000 ;
+
+: sign dup abs / ;
+
+: >scaled
+ precision 10 / * over
+ ?dup 0<> if
+ sign *
+ then
+ swap precision * +
+;
+
+( Redefine multiplication. Yay forth! )
+: * precision */ ;