2016-01-28: add: first argument gives seed

add: first argument gives seed

diff --git a/crawl-wot.scm b/crawl-wot.scm
--- a/crawl-wot.scm
+++ b/crawl-wot.scm
@@ -105,6 +105,10 @@
         (n-par-map 10 crawl new)))))
 
 (define (main args)
-  (dump-wot-id seed-id (wot-uri-filename seed-id))
-  (crawl-wot seed-id)
-  (newline))
+  (write args)(newline)
+  (let ((seed-id (if (null? (cdr args))
+                     seed-id
+                     (car (cdr args)))))
+    (dump-wot-id seed-id (wot-uri-filename seed-id))
+    (crawl-wot seed-id)
+    (newline)))