diff --git a/reflow/ansi.scm b/reflow/ansi.scm
index 3929a1a..e8fb2c8 100644
--- a/reflow/ansi.scm
+++ b/reflow/ansi.scm
@@ -11,7 +11,6 @@
 
 (define (ansi-terminator? char)
   (let ((c (char->integer char)))
-    (pk c)
     (or  (and (>= c #x40) (<= c #x5a)) (and (>= c #x61) (<= c #x7a)))))
 
 ;; TODO: create helpers that allow the reflow to operate properly.
@@ -21,7 +20,6 @@
   (define sequence-port #f)
   (define sequence-port-get-bv #f)
   (define (reset-sequence-port!)
-    (pk "Resetting seq port")
     (define-values (p get)
       (open-bytevector-output-port))
     (set! sequence-port p)
@@ -33,7 +31,6 @@
   (define last-seq-port #f)
   (define last-seq-port-get-bv #f)
   (define (reset-last-seq-port!)
-    (pk "Resetting LAST seq port")
     (define-values (p get)
       (open-bytevector-output-port))
     (set! last-seq-port p)
@@ -50,14 +47,12 @@
   (define (put-char c)
     (cond
      ((equal? %MARKER-CHAR c)
-      (pk "start esc seq" c)
       (set! in-escape-sequence? #t)
       (set! sequence? #t)
       (display c sequence-port))
      (in-escape-sequence?
       (display c sequence-port)
       (when (ansi-terminator? c)
-        (pk "terminator found, no longer in esc seq:" c)
         (set! in-escape-sequence? #f)
         (let* ((bv (sequence-port-get-bv))
                (sequence (and bv (bytevector->string bv (native-transcoder)))))
@@ -68,12 +63,10 @@
           (cond
            ((string-suffix? %RESET sequence)
             ;; Reset sequence, clear the saved sequence!
-            (pk "reset seq found")
             (reset-last-seq-port!)
             (set! sequence? #f))
            ((equal? c #\m)
             ;; color code, put the sequence into the last-seq port!
-            (pk "end of color code")
             (put-bytevector last-seq-port bv)
             (set! cached-sequence #f)))
 
@@ -100,10 +93,9 @@
   (define (last-sequence)
     (and sequence?
       (or cached-sequence
-          (pk
-           (let ((seq (bytevector->string (last-seq-port-get-bv) (native-transcoder))))
-             (set! cached-sequence seq)
-             seq)))))
+          (let ((seq (bytevector->string (last-seq-port-get-bv) (native-transcoder))))
+            (set! cached-sequence seq)
+            seq))))
 
   (define (reset-ansi)
     (when sequence?