diff --git a/day01-easy/main.scm b/day01-easy/main.scm
index da2a592..aa45494 100755
--- a/day01-easy/main.scm
+++ b/day01-easy/main.scm
@@ -22,9 +22,9 @@
   (lambda (current accumulator) (cons (mapper current) accumulator))
   '()))
 
-(define compose (reduce-right
-  (lambda (current accumulator) (lambda (value) (current (accumulator value))))
-  id))
+(define (compose-two f g) (lambda (x) (f (g x))))
+
+(define compose (reduce-right compose-two id))
 
 (define (combine combiner)
   (lambda (a b) (if (null? a) b (if (null? b) a (combiner a b)))))