part1 :: Carts -> Layout -> Coord
part1 carts layout = collisionSite
where (collisionSite, _, _, _) = propogateUntilCollision (orderedCarts carts) layout carts
part1 :: Carts -> Layout -> Coord
part1 carts layout = collisionSite
where (collisionSite, _, _, _) = propogateUntilCollision (orderedCarts carts) layout carts