trajectoryToPath start (v : vs) = let next = shift start v
                                  in next : trajectoryToPath next vs
trajectoryToPath start (v : vs) = let next = shift start v
                                  in next : trajectoryToPath next vs
trajectoryToPath start (v : vs) = let next = shift start v
                                  in next : trajectoryToPath next vs