diff --git a/src/Algorithm.hs b/src/Algorithm.hs
index dde80797e..552e0aff2 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) . (&) <$> wrapped)
+        go (Ap wrapped apply) = algebra (go . (apply <*>) . pure <$> wrapped)
 
 
 -- DSL