(define (moose l1 l2)
  (cond ((null? l1) (length l2))
        ((null? l2) (length l1))
        (else (+ (* (car l1) (car l2)) 
                 (moose (cdr l1) (cdr l2))))))

(moose '(1 2 3 4) '(5 6))