diff --git a/src/Algorithm.hs b/src/Algorithm.hs
index 5d6722ff5..dde80797e 100644
--- a/src/Algorithm.hs
+++ b/src/Algorithm.hs
@@ -24,7 +24,7 @@ type Algorithm term diff = Ap (AlgorithmF term diff)
 iterAp :: Functor g => (g a -> a) -> Ap g a -> a
 iterAp algebra = go
   where go (Pure a) = a
-        go (Ap wrapped apply) = algebra (go . (<$> apply) . flip ($) <$> wrapped)
+        go (Ap wrapped apply) = algebra (go . (<$> apply) . (&) <$> wrapped)
 
 
 -- DSL