> (matrix? m)
#t
> (matrix? '((1 2 3) (4 5 6)))
#t
> (matrix? '((1 2 3) (4 5 6 7)))
#f
> (matrix? '((1 2 3) (4 5)))
#f
> (matrix? '((1 2 3) 8 (4 5 6)))
#f
> (matrix? '((1 2 3) 'a (4 5 6)))
#f
> (matrix? '((1 2 3) (4 'a 6)))
#t
> (get-rows m)
2
> (get-columns m)
3
> (first-column m)
(1 4)
> 
> (get-column m 1)
(2 5)
> (get-column m 2)
(3 6)
[image] read-syntax: expected a `)` to close `(`
> (transpose m)
[image] [image] mcar: contract violation
  expected: mpair?
  given: ()
> (transpose m)
((1 4) (2 5) (3 6))
> (map list '(1 2 3) '(4 5 6))
[image] [image] map: arity mismatch;
 the expected number of arguments does not match the given number
  expected: 2
  given: 3
> (map list '(1 2 3) '(4 5 6))
((1 4) (2 5) (3 6))
> (apply map list m)
((1 4) (2 5) (3 6))
> (apply map list m)
((1 4) (2 5) (3 6))
> 
> (+-matrices m m)
[image] [image] +-matrices: undefined;
 cannot reference an identifier before its definition
> (+-matrices m m)
((2 4 6) (8 10 12))
> (*-vectors '(1 2 3) '(4 5 6))
32
> (*-matrices m (transpose m))
[image] [image] mmap: arity mismatch;
 the expected number of arguments does not match the given number
  expected: at least 2
  given: 1
> (*-matrices m (transpose m))
((14 32) (32 77))