;; dict.lq

(define (dict-keys d)
  (map (lambda (kv) (first kv))
       (dict-items d)))

(define (dict-values d)
  (map (lambda (kv) (second kv))
       (dict-items d)))

(define (dict-length d)
  (length (dict-items d)))