MiniKanren eq-caro

;; head of list is equal to x?
(define eq-car?
  (lambda (l x)
    (eq? (car l) x)))

(define eq-caro
  (lambda (l x)
    (caro l x)))