diff --git a/3.hs b/3.hs
index aa5d0e7..e8678e7 100644
--- a/3.hs
+++ b/3.hs
@@ -22,8 +22,9 @@ partA = getPositions
         coords  _  = (0, 0)
 
 partB :: [Char] -> [(Int, Int)]
-partB l = id =<< [ partA . odds $ l, partA . odds . tail $ l]
+partB l = id =<< [ partA . odds $ l, partA . evens $ l]
     where
+        evens = odds . tail
         odds [] = []
         odds [x] = [x]
         odds (x:y:r) = x:(odds r)