(define (composite  relationOuter relationInner)
  (if (null? relationInner)
      '()
      (if (null? (related-to (cadar relationInner) relationOuter))
      (composite relationOuter (cdr relationInner))
      (append (list (cons(caar relationInner) (related-to (cadar relationInner) relationOuter))) (composite relationOuter (cdr relationInner)))
      )))