diff --git a/p7/operators.el b/p7/operators.el
index ef1f1c6..9294bf2 100644
--- a/p7/operators.el
+++ b/p7/operators.el
@@ -20,6 +20,6 @@
 (defun sequence-works-p (l)
   (let ((result (car l))
         (numbers (cdr l)))
-    (member result (-reduce (lambda (lx y) (-flatten (--map (list (|| it y) (+ it y) (* it y)) (-list lx)))) numbers))))
+    (member result (-reduce (lambda (lx y) (-flatten (--map (-map (lambda (op) (funcall op it y)) '(+ * ||)) (-list lx)))) numbers))))
 
 (apply '+ (-map 'car (-filter 'sequence-works-p data)))