From a5baddd75fd09c3f4991c0e05a07149bbda3dbcd Mon Sep 17 00:00:00 2001
From: Wesley Kerfoot <wjak56@gmail.com>
Date: Sun, 2 Sep 2012 08:41:20 -0400
Subject: [PATCH] made ls output nicer

---
 lazyplay.rkt | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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)