Fix loop

Main.hs

@@ -65,8 +65,8 @@ collectArgsTicks_OnStack = go mempty
     go :: [Expr] -> Expr -> (Expr, [Expr], [Tickish])
     go as (App f a) = go (a:as) f
     go as (Tick t a) =
-      let !(e', as, ts) = go as a
-      in (e', as, t:ts)
+      let !(e', as', ts) = go as a
+      in (e', as', t:ts)
     go as a = (a, as, [])
 
 collectArgsTicksBenchmarks :: Expr -> [Benchmark]