Distrib function Scheme

(define (distrib L E)
  (if (null? L)
      ()
      (cons (cons E (car L))
    (distrib (cdr L) E))
      ))