(define (make-identity-matrix n)
(map (lambda (i)
(append (repeat 0 i) '(1) (repeat 0 (- n i 1))))
(iota n)))
(for-each print (make-identity-matrix 3))
(for-each print (make-identity-matrix 17))