Finish factor utility

cat.nim

@@ -7,4 +7,4 @@ proc main(files:seq[string]) =
         while not s.atEnd:
             write(stdout, s.readChar)
 
-dispatch(main)
+dispatch(main, version=("version", nimbaseVersion))

factor.nim

@@ -1,11 +1,19 @@
-import cligen
+import cligen, sequtils
 import common
 
 proc factor(num:int):seq[int] =
-    result = @[0]
+    result = @[]
+    var i = num
+    while i > 1:
+        for x in 2..i:
+            if i mod x == 0:
+                result.add(x)
+                i = i div x
+                break
 
 proc main(integers:seq[int]) =
     for number in integers:
-        echo number, ": ", factor(number)
+        echo number, ": ",
+             map(factor(number), proc(x:int):string = $x & " ").foldl(a & b)
 
 dispatch(main)

seq.nim

@@ -1,10 +1,11 @@
 import cligen
 import common
 
-proc main(last:int, first=1, increment=1) =
+proc main(last:int, first=1, increment=1, separator="\n") =
     var i = first
     while i <= last:
-        echo(i)
+        write(stdout, i)
+        write(stdout, separator)
         i = i + increment
 
 dispatch(main, version=("version", nimbaseVersion))