2016-02-02: Provide more output.

Provide more output.

diff --git a/crawl-wot.scm b/crawl-wot.scm
--- a/crawl-wot.scm
+++ b/crawl-wot.scm
@@ -162,6 +162,8 @@
                          (map (lambda (week)
                                 (let* ((weekuri (datehint-for-key (wot-uri-key uri) year #:week week))
                                        (hint (get (furl-uri weekuri))))
+                                  (write weekuri)(newline)
+                                  (write hint)(newline)
                                   (if (not (string? hint))
                                       #f
                                       (let* ((hint-alist (parse-datehint hint))