factor.txt in zettacode-0.1.1

- old
+ new

@@ -1,17 +1,17 @@
-USING: combo o k m m.fuco m.od
-.  
+USING: combinators io kernel math math.functions math.order
+math.parser prettyprint ;
 
-"=" "b=" [   ub ] b@
+"a=" "b=" [ write readln string>number ] bi@
 {
-    [ + "u: "  . ]
-    [ - "ffc: "  . ] 
-    [ * "uc: "  . ]
-    [  "qu: "  . ]
-    [  " qu: "  . ]
-    [  ": "  . ]
-    [  "u: "  . ]
-    [  "u: "  . ]
-    [  "u: "  . ]
-    [ c "c: "  .  ]
-    [ c "c: "  . ]
-} 2c
+    [ + "sum: " write . ]
+    [ - "difference: " write . ] 
+    [ * "product: " write . ]
+    [ / "quotient: " write . ]
+    [ /i "integer quotient: " write . ]
+    [ rem "remainder: " write . ]
+    [ mod "modulo: " write . ]
+    [ max "maximum: " write . ]
+    [ min "minimum: " write . ]
+    [ gcd "gcd: " write . drop ]
+    [ lcm "lcm: " write . ]
+} 2cleave