(define (cadr lst) (car (cdr lst)))

(define (make-kwlist1 keys values)
  'YOUR-CODE-HERE)

(define (get-keys-kwlist1 kwlist) 'YOUR-CODE-HERE)

(define (get-values-kwlist1 kwlist)
  'YOUR-CODE-HERE)

(define (make-kwlist2 keys values)
  'YOUR-CODE-HERE)

(define (get-keys-kwlist2 kwlist) 'YOUR-CODE-HERE)

(define (get-values-kwlist2 kwlist)
  'YOUR-CODE-HERE)

(define (add-to-kwlist kwlist key value)
  'YOUR-CODE-HERE)

(define (get-first-from-kwlist kwlist key)
  'YOUR-CODE-HERE)

(define (prune-expr expr)
  (define (prune-helper lst) 'YOUR-CODE-HERE)
  'YOUR-CODE-HERE)

(define (curry-cook formals body) 'YOUR-CODE-HERE)

(define (curry-consume curries args)
  'YOUR-CODE-HERE)