diff --git a/Day2/Day2B.hs b/Day2/Day2B.hs
index 0ba6b24..7124319 100644
--- a/Day2/Day2B.hs
+++ b/Day2/Day2B.hs
@@ -14,7 +14,7 @@ dist :: String -> String -> (Int, String)
 dist = dist' 0 S.empty
 
 combinations :: [String] -> [(String, String)]
-combinations (x:y:xs) = (x, y):(combinations (y:xs))
+combinations (x:xs) = map (x,) xs ++ combinations xs
 combinations [] = []
 
 distances :: [(String, String)] -> String