(define (reverse-with-count l1 l2)

  (define (foo lone ltwo)
    (cond
      ((null? lone) null)
      ((= (car ltwo) 0) (foo (cdr lone) (cdr ltwo)))
      ((cons (car lone) (foo lone (cons (- (car ltwo) 1) (cdr ltwo)))))))

  (foo (reverse l1) (reverse l2)))