diff --git a/day01-easy/main.scm b/day01-easy/main.scm
index aa45494..79b8c37 100755
--- a/day01-easy/main.scm
+++ b/day01-easy/main.scm
@@ -4,11 +4,9 @@
 (use-modules (ice-9 rdelim))
 
 (define (read-lines)
-  (let loop ((line (read-line)))
-    (if
-      (eof-object? line)
-      '()
-      (cons line (loop (read-line))))))
+  ((lambda (line)
+    (if (eof-object? line) '() (cons line (read-lines))))
+  (read-line)))
 
 (define (id value) value)