toBeziers' p (CurveTo c d q:ss) = curveSegment p c d q : toBeziers' q ss
toBeziers' p (CurveTo c d q:ss) = curveSegment p c d q : toBeziers' q ss
toBeziers' p (CurveTo c d q:ss) = curveSegment p c d q : toBeziers' q ss