(define (mult-table n m)
  (cond
    [(or (zero? n) (zero? m)) empty]
    [else (cons (multiplylist n n (listup m m)) (mult-table (sub1 n) m))]))

(define (listup r s)
  (cond
    [(zero? s) empty]
    [else (cons (add1 (- r s)) (listup r (sub1 s)))]))

(define (multiplylist x y lst)
  (cond
    [(empty? lst) empty]
    [else (cons (* (add1 (- x y)) (first lst)) (multiplylist x (sub1 y) (rest lst)))])) 





(mult-table 3 4)