(define-library (cook debug)
  (export cook->list)
  (import (srfi 1)
          (srfi 9)
          (srfi 69)
          (chibi)
          (chibi match)
          (cook parse-internals))
  (begin
    (define (cook->list y)
      (match y
        (($ <amount> quantity unit)
         (list 'amount quantity unit))
        (($ <comment> text)
         (list 'comment text))
        (($ <note> text)
         (list 'note text))
        (($ <component> name amount)
         (list 'component name (cook->list amount)))
        (($ <cookware> name amount)
         (list 'cookware name (cook->list amount)))
        (($ <ingredient> name amount)
         (list 'ingredient name (cook->list amount)))
        (($ <timer> name amount)
         (list 'timer name (cook->list amount)))
        (($ <metadata-line> key value)
         (list 'metadata-line key value))
        (($ <step> elements)
         (list 'step (map cook->list elements )))
        ((? hash-table? y)
         (list 'metadata (cook->list (hash-table->alist y))))
        (($ <recipe> metadata body)
         (list 'recipe (cook->list metadata) (cook->list body)))
        ((? list? y)
         (map cook->list y))
        (else y)))))