diff --git a/compiler.rkt b/compiler.rkt
index 564ecb3..02c3426 100644
--- a/compiler.rkt
+++ b/compiler.rkt
@@ -117,7 +117,7 @@
 ;; Executes one rule
 (define (execute-rule r)
   (match-define (rule name ins out func) r)
-  (printf "executing: ~a\n" name)
+  (printf "executing: ~a -> ~a\n" name out)
   (define cust (make-custodian))
   (parameterize ([current-custodian cust])
     (thread-wait
diff --git a/fetch-util.rkt b/fetch-util.rkt
index 0cce3fe..63e20e6 100644
--- a/fetch-util.rkt
+++ b/fetch-util.rkt
@@ -14,7 +14,7 @@
       "GMT")))
 
 (define (parse-url fetch-url)
-  (printf "fetching page: ~a\n" fetch-url)
+  (printf "  fetching page: ~a\n" fetch-url)
   (define parsed-url (if (string? fetch-url) (string->url fetch-url) fetch-url))
   (match parsed-url
     [(url scheme user host port path-absolute? path query fragment)
@@ -47,7 +47,7 @@
       [(? string?) (void)]
       [(list tag (list (list (? symbol?) (? string?)) ...) body ...)
        (void (map check-detailed-xexpr body))]
-      [_ (displayln "problem:") (pretty-write x)]))
+      [_ (printf "problem:\n") (pretty-write x)]))
   (unless (xexpr? x)
     (check-detailed-xexpr x)
     (error "not xexpr!"))
diff --git a/fetch.rkt b/fetch.rkt
index 7615a4a..1710cf4 100644
--- a/fetch.rkt
+++ b/fetch.rkt
@@ -33,7 +33,7 @@
     (define http-signature (format "keyId=\"~a\",algorithm=\"~a\",headers=\"~a\",signature=\"~a\""
                                    "foo://example-key" algorithm signed-header-spec signature))
 
-    (displayln http-signature)
+    ; (displayln http-signature)
 
     ;; GET /path HTTP/1.1
     (define req-headers
@@ -57,9 +57,9 @@
                      #:data #f
                      #:content-decode '(gzip deflate)))
 
-    (displayln status)
-    (displayln resp-headers)
-    (displayln (port->bytes body))
+    ; (displayln status)
+    ; (displayln resp-headers)
+    ; (displayln (port->bytes body))
 
     (void "TODO")))
 
diff --git a/util.rkt b/util.rkt
index 9389b0e..2ef98a1 100644
--- a/util.rkt
+++ b/util.rkt
@@ -12,7 +12,7 @@
   (~r num #:min-width pad-to #:pad-string "0"))
 
 (define (run-external argv source)
-  (printf "running external program: ~a\n" argv)
+  (printf "  running external program: ~a\n" argv)
   (define-values [proc out in err]
     (apply subprocess #f #f #f "/usr/bin/env" argv))
   (define out-str #f)