diff --git a/2019/day3/day3.hs b/2019/day3/day3.hs
index 5580a5f..f8a386c 100644
--- a/2019/day3/day3.hs
+++ b/2019/day3/day3.hs
@@ -14,7 +14,7 @@ parse :: String -> [[(Char,Int)]]
 parse = map (map (\x->(head x,read $ tail x))) . map (splitOn ",") . lines
 
 gensteps :: [(Char,Int)] -> [V2 Int]
-gensteps = scanl (+) (V2 0 0) . concatMap (\(x,y)->replicate y $ step x)
+gensteps = scanl1 (+) . concatMap (\(x,y)->replicate y $ step x)
 
 step :: Char -> V2 Int
 step x