diff --git a/Day1/puzzle2.hs b/Day1/puzzle2.hs
index fc43327..c3f7b44 100644
--- a/Day1/puzzle2.hs
+++ b/Day1/puzzle2.hs
@@ -3,8 +3,7 @@ import System.IO
 
 similarityScore :: [Int] -> [Int] -> Int
 similarityScore xs ys = let elemsY = [ (head y, length y) | y <- (group . sort) ys ]
-                            xy = [ (x, snd y) | x <- xs, y <- elemsY, x == fst y ]
-                        in sum [ uncurry (*) x | x <- xy ]
+                        in  sum [ x * snd y | x <- xs, y <- elemsY, x == fst y ]
 
 main = do
     contents <- lines <$> readFile "day1.txt"