fwfw

(define (composite_helper tuple relationInner)
  (if (null? relationInner)
      '()
      (if (equal? (cadar relationInner) (car tuple))
          (cons (list (caar relationInner) (cadr tuple)) (composite_helper tuple (cdr relationInner)))
          (composite_helper tuple (cdr relationInner)))))

(define (composite relationOuter relationInner)
  (if (null? relationOuter)
      '()
      (append (composite_helper(car relationOuter) relationInner) (composite (cdr relationOuter) relationInner))))