+module Main(main) where
+
import Data.List (sort)
import Data.List.Split (splitOn)
-- Execute a series of steps, keeping track of the positions after each step
takeSteps :: Position -> [Step] -> [Position]
-takeSteps pos steps = scanl move pos steps
+-- takeSteps pos steps = scanl move pos steps
+takeSteps = scanl move
-- Make one move, by updating direction then position
move :: Position -> Step -> Position