(defun directives-to-list (directives)
  (let (result
    (initial '(0 0)))
    (dolist (directive directives)
      (multiple-value-bind (list cursor)
      (directive-to-list directive initial)
    (setf result (append list result))
    (setf initial cursor)))
    result))