(define (merge-alists lhs rhs)
  (fold (lambda (elt ls) (alist-update (car elt) (cdr elt) ls)) lhs rhs))