0. #lang racket
1.  
2. (define a (list (list -4 20) (list -2 13)))
3. (define b (list (list -4 20) (list -2 13)))
4.  
5.  
6. (define (matrix a b)
7.     (if (and (null? a) (null? b))
8.         0
9.         (+ (* (car (car a)) (car (car b))) (*(cadr(car a)) (car(cdr b))))))
10.  
11. (matrix a b)

=>

*: contract violation

expected: number?

given: '(-2 13)

argument position: 2nd

other arguments...:

20