diff --git a/lazyplay.rkt b/lazyplay.rkt
index 3d1e472..ab52814 100755
--- a/lazyplay.rkt
+++ b/lazyplay.rkt
@@ -140,7 +140,8 @@
                          (car dir)) (play-list (car dir)))]
         [number-list (for/list ([i (length playlist)]) i)]
         [output-list (map cons playlist number-list)])
-    (display output-list)
+    (display (string-join (map (λ (xs) (format "~a ~a" (car xs) (cdr xs))) output-list) "\n"))
+    (display "\n")
     (let ([input (read-line (current-input-port))])
       (match (regexp-split #px"\\s" input)
         [(list-rest "add" xs)