; dobble (define (dobble n) (do ((i 0 (+ i 1))) ((= i n)) (do ((j 0 (+ j 1))) ((= j n)) (do ((k 0 (+ k 1))) ((= k n) (display (+ (* n n) i)) (newline)) (display (+ (* (modulo (+ (* i k) j) n) n) k)) (display " ")))) (do ((i 0 (+ i 1))) ((= i n)) (do ((j 0 (+ j 1))) ((= j n) (display (+ (* n n) n)) (newline)) (display (+ (* j n) i)) (display " "))) (do ((i 0 (+ i 1))) ((= i n) (display (+ (* n n) n)) (newline)) (display (+ (* n n) i)) (display " "))) (dobble 7)