Shuffling Analysis

>> (def test (seed)
     (flet1 gen () (pop seed)
       (ret result (vector 1 2 3)
         (up i 0 3
           (swap (aref result i) (aref result (gen)))))))
TEST
>> (test)
; Evaluation aborted on #<SB-INT:SIMPLE-PROGRAM-ERROR "invalid number of arguments: ~S" {1004E51A23}>.
>> (test '(0 0 0))
#(3 1 2)
>> (test '(0 0 0))
#(3 1 2)
>> (test '(0 0 1))
#(2 3 1)
>> (test '(0 0 2))
#(2 1 3)
>> (test '(0 1 2))
#(1 2 3)
>> (accum a
     (up i 0 3
       (up j 0 3
         (up k 0 3
           (a (test (list i j k)))))))
(#(3 1 2) #(2 3 1) #(2 1 3) #(3 2 1) #(1 3 2) #(1 2 3) #(2 3 1) #(1 2 3)
 #(1 3 2) #(3 2 1) #(1 3 2) #(1 2 3) #(3 1 2) #(2 3 1) #(2 1 3) #(1 3 2)
 #(2 1 3) #(2 3 1) #(1 3 2) #(2 1 3) #(2 3 1) #(1 2 3) #(3 1 2) #(3 2 1)
 #(2 1 3) #(3 2 1) #(3 1 2))
>> (counts *)
#<HASH-TABLE :TEST EQUALP :COUNT 6 {1005F126E3}>
>> (tablist *)
((#(1 2 3) 4) (#(1 3 2) 5) (#(3 2 1) 4) (#(2 1 3) 5) (#(2 3 1) 5) (#(3 1 2) 4))
>> (def trial ()
     (ret result (vector 1 2 3)
       (up i 0 3
         (swap (aref result i) (aref result (rand 3))))))
TRIAL
>> (n-of 10000 (trial))
(#(3 1 2) #(2 1 3) #(3 2 1) #(2 1 3) #(3 1 2) #(2 1 3) #(3 2 1) #(2 3 1)
 #(1 2 3) #(3 1 2) #(1 3 2) #(1 3 2) #(2 3 1) #(1 3 2) #(2 1 3) #(1 2 3)
 #(2 1 3) #(1 2 3) #(2 1 3) #(2 3 1) #(1 3 2) #(2 1 3) #(1 3 2) #(1 2 3)
 #(3 2 1) #(2 1 3) #(1 2 3) #(2 1 3) #(1 3 2) #(1 3 2) #(2 1 3) #(3 1 2)
 #(1 3 2) #(3 1 2) #(2 3 1) #(2 1 3) #(2 1 3) #(1 2 3) #(3 1 2) #(1 3 2)
 #(2 3 1) #(1 3 2) #(3 2 1) #(2 3 1) #(3 2 1) #(2 1 3) #(1 2 3) #(1 3 2)
 #(2 1 3) #(3 2 1) #(1 3 2) #(3 1 2) #(2 1 3) #(1 3 2) #(3 2 1) #(3 1 2)
 #(1 2 3) #(2 1 3) #(2 1 3) #(1 3 2) #(3 2 1) #(2 3 1) #(2 1 3) #(3 2 1)
 #(1 3 2) #(1 3 2) #(3 1 2) #(3 2 1) #(1 3 2) #(3 2 1) #(2 3 1) #(3 1 2)
 #(2 1 3) #(2 3 1) #(2 3 1) #(1 3 2) #(3 1 2) #(1 3 2) #(3 2 1) #(2 1 3)
 #(2 3 1) #(1 3 2) #(1 3 2) #(2 3 1) #(2 3 1) #(2 1 3) #(2 3 1) #(2 3 1)
 #(3 1 2) #(2 3 1) #(1 2 3) #(2 3 1) #(1 2 3) #(2 1 3) #(2 3 1) #(3 1 2)
 #(3 2 1) #(2 3 1) #(3 2 1) #(2 1 3) #(2 1 3) #(2 1 3) #(1 2 3) #(2 3 1)
 #(1 3 2) #(1 3 2) #(3 1 2) #(1 2 3) #(2 1 3) #(1 3 2) #(1 2 3) #(2 3 1)
 #(3 2 1) #(1 3 2) #(2 1 3) #(1 3 2) #(2 1 3) #(3 1 2) #(3 1 2) #(2 1 3)
 #(2 1 3) #(3 1 2) #(1 2 3) #(2 3 1) #(2 3 1) #(1 2 3) #(3 2 1) #(2 3 1)
 #(3 2 1) #(1 3 2) #(2 1 3) #(2 1 3) #(2 1 3) #(2 3 1) #(2 1 3) #(2 1 3)
 #(2 3 1) #(1 3 2) #(3 2 1) #(3 2 1) #(3 2 1) #(1 3 2) #(2 1 3) #(1 2 3)
 #(1 3 2) #(2 1 3) #(2 3 1) #(2 3 1) #(2 3 1) #(2 3 1) #(3 2 1) #(1 2 3)
 #(1 2 3) #(1 2 3) #(2 3 1) #(2 3 1) #(3 1 2) #(2 3 1) #(2 3 1) #(2 1 3)
 #(1 3 2) #(3 2 1) #(3 2 1) #(3 1 2) #(2 3 1) #(2 1 3) #(2 1 3) #(3 1 2)
 #(1 3 2) #(3 1 2) #(2 3 1) #(3 1 2) #(1 3 2) #(2 1 3) #(3 1 2) #(1 2 3)
 #(3 1 2) #(3 1 2) #(2 3 1) #(1 2 3) #(2 3 1) #(1 3 2) #(2 3 1) #(3 2 1)
 #(1 2 3) #(2 1 3) #(1 2 3) #(2 3 1) #(2 1 3) #(1 3 2) #(1 3 2) #(2 3 1)
 #(3 1 2) #(2 1 3) #(1 2 3) #(3 1 2) #(3 2 1) #(1 2 3) #(2 1 3) #(1 3 2)
 #(2 1 3) #(1 2 3) #(2 1 3) #(2 1 3) #(1 2 3) #(3 2 1) #(1 3 2) #(2 1 3)
 #(1 2 3) #(1 3 2) #(1 2 3) #(2 1 3) #(3 1 2) #(1 2 3) #(2 1 3) #(2 1 3)
 #(1 2 3) #(2 3 1) #(3 1 2) #(2 1 3) #(2 3 1) #(1 3 2) #(3 2 1) #(2 3 1)
 #(3 1 2) #(3 1 2) #(2 1 3) #(3 1 2) #(3 2 1) #(2 3 1) #(1 3 2) #(1 2 3)
 #(3 2 1) #(1 2 3) #(3 1 2) #(1 2 3) #(1 3 2) #(1 2 3) #(2 1 3) #(2 3 1)
 #(2 1 3) #(3 1 2) #(3 1 2) #(1 3 2) #(2 3 1) #(2 3 1) #(3 2 1) #(1 2 3)
 #(2 1 3) #(3 2 1) #(2 1 3) #(1 2 3) #(1 3 2) #(2 1 3) #(2 3 1) #(2 1 3)
 #(2 1 3) #(1 2 3) #(1 2 3) #(3 2 1) #(1 2 3) #(2 1 3) #(3 2 1) #(1 2 3)
 #(3 2 1) #(2 3 1) #(1 3 2) #(3 1 2) #(2 1 3) #(2 3 1) #(3 1 2) #(2 1 3)
 #(1 2 3) #(2 3 1) #(2 1 3) #(2 1 3) #(2 3 1) #(3 2 1) #(2 3 1) #(1 3 2)
 #(2 1 3) #(2 3 1) #(2 3 1) #(2 3 1) #(2 1 3) #(2 3 1) #(2 1 3) #(3 2 1)
 #(3 2 1) #(3 2 1) #(2 1 3) #(3 1 2) #(1 2 3) #(1 3 2) #(2 1 3) #(2 3 1)
 #(1 3 2) #(3 2 1) #(1 3 2) #(2 1 3) #(2 3 1) #(1 2 3) #(3 2 1) #(3 1 2)
 #(1 3 2) #(1 2 3) #(2 3 1) #(2 1 3) #(1 3 2) #(3 1 2) #(1 3 2) #(3 2 1)
 #(3 1 2) #(3 1 2) #(2 3 1) #(3 1 2) #(1 2 3) #(1 2 3) #(2 3 1) #(2 3 1) ..)
>> (counts *)
#<HASH-TABLE :TEST EQUALP :COUNT 6 {100676FDE3}>
>> (tablist *)
((#(1 3 2) 1872) (#(1 2 3) 1422) (#(2 3 1) 1801) (#(3 2 1) 1511)
 (#(2 1 3) 1897) (#(3 1 2) 1497))
>> (def execute (init shuffle)
     (accum a
       (each x shuffle
         (a (elt init (dec x))))))
EXECUTE
>> (execute '(1 2 3) '(1 2 3))
(1 2 3)
>> (execute '(1 2 3) '(2 1 3))
(2 1 3)
>> (execute '(1 2 3) '(3 2 1))
(3 2 1)
>> (execute '(3 2 1) '(3 2 1))
(1 2 3)
>> (execute '(2 1 3) '(2 1 3))
(1 2 3)
>> (execute '(3 1 2) '(3 1 2))
(2 3 1)
>> '((#(1 2 3) 4) (#(1 3 2) 5) (#(3 2 1) 4) (#(2 1 3) 5) (#(2 3 1) 5) (#(3 1 2) 4))
((#(1 2 3) 4) (#(1 3 2) 5) (#(3 2 1) 4) (#(2 1 3) 5) (#(2 3 1) 5) (#(3 1 2) 4))
>> (accum a
     (each start (cars *)
       (each (shuffle count) *
         (a (list start (execute start shuffle) count)))))
((#(1 2 3) (1 2 3) 4) (#(1 2 3) (1 3 2) 5) (#(1 2 3) (3 2 1) 4)
 (#(1 2 3) (2 1 3) 5) (#(1 2 3) (2 3 1) 5) (#(1 2 3) (3 1 2) 4)
 (#(1 3 2) (1 3 2) 4) (#(1 3 2) (1 2 3) 5) (#(1 3 2) (2 3 1) 4)
 (#(1 3 2) (3 1 2) 5) (#(1 3 2) (3 2 1) 5) (#(1 3 2) (2 1 3) 4)
 (#(3 2 1) (3 2 1) 4) (#(3 2 1) (3 1 2) 5) (#(3 2 1) (1 2 3) 4)
 (#(3 2 1) (2 3 1) 5) (#(3 2 1) (2 1 3) 5) (#(3 2 1) (1 3 2) 4)
 (#(2 1 3) (2 1 3) 4) (#(2 1 3) (2 3 1) 5) (#(2 1 3) (3 1 2) 4)
 (#(2 1 3) (1 2 3) 5) (#(2 1 3) (1 3 2) 5) (#(2 1 3) (3 2 1) 4)
 (#(2 3 1) (2 3 1) 4) (#(2 3 1) (2 1 3) 5) (#(2 3 1) (1 3 2) 4)
 (#(2 3 1) (3 2 1) 5) (#(2 3 1) (3 1 2) 5) (#(2 3 1) (1 2 3) 4)
 (#(3 1 2) (3 1 2) 4) (#(3 1 2) (3 2 1) 5) (#(3 1 2) (2 1 3) 4)
 (#(3 1 2) (1 3 2) 5) (#(3 1 2) (1 2 3) 5) (#(3 1 2) (2 3 1) 4))
>> (len *)
36
>> **
((#(1 2 3) (1 2 3) 4) (#(1 2 3) (1 3 2) 5) (#(1 2 3) (3 2 1) 4)
 (#(1 2 3) (2 1 3) 5) (#(1 2 3) (2 3 1) 5) (#(1 2 3) (3 1 2) 4)
 (#(1 3 2) (1 3 2) 4) (#(1 3 2) (1 2 3) 5) (#(1 3 2) (2 3 1) 4)
 (#(1 3 2) (3 1 2) 5) (#(1 3 2) (3 2 1) 5) (#(1 3 2) (2 1 3) 4)
 (#(3 2 1) (3 2 1) 4) (#(3 2 1) (3 1 2) 5) (#(3 2 1) (1 2 3) 4)
 (#(3 2 1) (2 3 1) 5) (#(3 2 1) (2 1 3) 5) (#(3 2 1) (1 3 2) 4)
 (#(2 1 3) (2 1 3) 4) (#(2 1 3) (2 3 1) 5) (#(2 1 3) (3 1 2) 4)
 (#(2 1 3) (1 2 3) 5) (#(2 1 3) (1 3 2) 5) (#(2 1 3) (3 2 1) 4)
 (#(2 3 1) (2 3 1) 4) (#(2 3 1) (2 1 3) 5) (#(2 3 1) (1 3 2) 4)
 (#(2 3 1) (3 2 1) 5) (#(2 3 1) (3 1 2) 5) (#(2 3 1) (1 2 3) 4)
 (#(3 1 2) (3 1 2) 4) (#(3 1 2) (3 2 1) 5) (#(3 1 2) (2 1 3) 4)
 (#(3 1 2) (1 3 2) 5) (#(3 1 2) (1 2 3) 5) (#(3 1 2) (2 3 1) 4))
>> (defparameter gen* 0)
GEN*
>> **
((#(1 2 3) (1 2 3) 4) (#(1 2 3) (1 3 2) 5) (#(1 2 3) (3 2 1) 4)
 (#(1 2 3) (2 1 3) 5) (#(1 2 3) (2 3 1) 5) (#(1 2 3) (3 1 2) 4)
 (#(1 3 2) (1 3 2) 4) (#(1 3 2) (1 2 3) 5) (#(1 3 2) (2 3 1) 4)
 (#(1 3 2) (3 1 2) 5) (#(1 3 2) (3 2 1) 5) (#(1 3 2) (2 1 3) 4)
 (#(3 2 1) (3 2 1) 4) (#(3 2 1) (3 1 2) 5) (#(3 2 1) (1 2 3) 4)
 (#(3 2 1) (2 3 1) 5) (#(3 2 1) (2 1 3) 5) (#(3 2 1) (1 3 2) 4)
 (#(2 1 3) (2 1 3) 4) (#(2 1 3) (2 3 1) 5) (#(2 1 3) (3 1 2) 4)
 (#(2 1 3) (1 2 3) 5) (#(2 1 3) (1 3 2) 5) (#(2 1 3) (3 2 1) 4)
 (#(2 3 1) (2 3 1) 4) (#(2 3 1) (2 1 3) 5) (#(2 3 1) (1 3 2) 4)
 (#(2 3 1) (3 2 1) 5) (#(2 3 1) (3 1 2) 5) (#(2 3 1) (1 2 3) 4)
 (#(3 1 2) (3 1 2) 4) (#(3 1 2) (3 2 1) 5) (#(3 1 2) (2 1 3) 4)
 (#(3 1 2) (1 3 2) 5) (#(3 1 2) (1 2 3) 5) (#(3 1 2) (2 3 1) 4))
>> (mapeach (x . y) *
     (cons (coerce x 'list) y))
(((1 2 3) (1 2 3) 4) ((1 2 3) (1 3 2) 5) ((1 2 3) (3 2 1) 4)
 ((1 2 3) (2 1 3) 5) ((1 2 3) (2 3 1) 5) ((1 2 3) (3 1 2) 4)
 ((1 3 2) (1 3 2) 4) ((1 3 2) (1 2 3) 5) ((1 3 2) (2 3 1) 4)
 ((1 3 2) (3 1 2) 5) ((1 3 2) (3 2 1) 5) ((1 3 2) (2 1 3) 4)
 ((3 2 1) (3 2 1) 4) ((3 2 1) (3 1 2) 5) ((3 2 1) (1 2 3) 4)
 ((3 2 1) (2 3 1) 5) ((3 2 1) (2 1 3) 5) ((3 2 1) (1 3 2) 4)
 ((2 1 3) (2 1 3) 4) ((2 1 3) (2 3 1) 5) ((2 1 3) (3 1 2) 4)
 ((2 1 3) (1 2 3) 5) ((2 1 3) (1 3 2) 5) ((2 1 3) (3 2 1) 4)
 ((2 3 1) (2 3 1) 4) ((2 3 1) (2 1 3) 5) ((2 3 1) (1 3 2) 4)
 ((2 3 1) (3 2 1) 5) ((2 3 1) (3 1 2) 5) ((2 3 1) (1 2 3) 4)
 ((3 1 2) (3 1 2) 4) ((3 1 2) (3 2 1) 5) ((3 1 2) (2 1 3) 4)
 ((3 1 2) (1 3 2) 5) ((3 1 2) (1 2 3) 5) ((3 1 2) (2 3 1) 4))
>> (defparameter table* (table :test #'iso))
TABLE*
>> (= gen* -1)
-1
>> (def list->num (x) (or= table*.x (++ gen*)))
LIST->NUM
>> '(((1 2 3) (1 2 3) 4) ((1 2 3) (1 3 2) 5) ((1 2 3) (3 2 1) 4)
 ((1 2 3) (2 1 3) 5) ((1 2 3) (2 3 1) 5) ((1 2 3) (3 1 2) 4)
 ((1 3 2) (1 3 2) 4) ((1 3 2) (1 2 3) 5) ((1 3 2) (2 3 1) 4)
 ((1 3 2) (3 1 2) 5) ((1 3 2) (3 2 1) 5) ((1 3 2) (2 1 3) 4)
 ((3 2 1) (3 2 1) 4) ((3 2 1) (3 1 2) 5) ((3 2 1) (1 2 3) 4)
 ((3 2 1) (2 3 1) 5) ((3 2 1) (2 1 3) 5) ((3 2 1) (1 3 2) 4)
 ((2 1 3) (2 1 3) 4) ((2 1 3) (2 3 1) 5) ((2 1 3) (3 1 2) 4)
 ((2 1 3) (1 2 3) 5) ((2 1 3) (1 3 2) 5) ((2 1 3) (3 2 1) 4)
 ((2 3 1) (2 3 1) 4) ((2 3 1) (2 1 3) 5) ((2 3 1) (1 3 2) 4)
 ((2 3 1) (3 2 1) 5) ((2 3 1) (3 1 2) 5) ((2 3 1) (1 2 3) 4)
 ((3 1 2) (3 1 2) 4) ((3 1 2) (3 2 1) 5) ((3 1 2) (2 1 3) 4)
 ((3 1 2) (1 3 2) 5) ((3 1 2) (1 2 3) 5) ((3 1 2) (2 3 1) 4))
(((1 2 3) (1 2 3) 4) ((1 2 3) (1 3 2) 5) ((1 2 3) (3 2 1) 4)
 ((1 2 3) (2 1 3) 5) ((1 2 3) (2 3 1) 5) ((1 2 3) (3 1 2) 4)
 ((1 3 2) (1 3 2) 4) ((1 3 2) (1 2 3) 5) ((1 3 2) (2 3 1) 4)
 ((1 3 2) (3 1 2) 5) ((1 3 2) (3 2 1) 5) ((1 3 2) (2 1 3) 4)
 ((3 2 1) (3 2 1) 4) ((3 2 1) (3 1 2) 5) ((3 2 1) (1 2 3) 4)
 ((3 2 1) (2 3 1) 5) ((3 2 1) (2 1 3) 5) ((3 2 1) (1 3 2) 4)
 ((2 1 3) (2 1 3) 4) ((2 1 3) (2 3 1) 5) ((2 1 3) (3 1 2) 4)
 ((2 1 3) (1 2 3) 5) ((2 1 3) (1 3 2) 5) ((2 1 3) (3 2 1) 4)
 ((2 3 1) (2 3 1) 4) ((2 3 1) (2 1 3) 5) ((2 3 1) (1 3 2) 4)
 ((2 3 1) (3 2 1) 5) ((2 3 1) (3 1 2) 5) ((2 3 1) (1 2 3) 4)
 ((3 1 2) (3 1 2) 4) ((3 1 2) (3 2 1) 5) ((3 1 2) (2 1 3) 4)
 ((3 1 2) (1 3 2) 5) ((3 1 2) (1 2 3) 5) ((3 1 2) (2 3 1) 4))
>> (def build-matrix ()
     (ret result (make-array (list 6 6) :initial-element 0)
       (each (start end num) *
         (= (aref result (list->num start) (list-num end))
            num))))

; in: DEF BUILD-MATRIX
;     (>::LIST-NUM >::END)
; 
; caught STYLE-WARNING:
;   undefined function: LIST-NUM
; 
; compilation unit finished
;   Undefined function:
;     LIST-NUM
;   caught 1 STYLE-WARNING condition
BUILD-MATRIX
>> (def build-matrix (mappings)
     (ret result (make-array (list 6 6) :initial-element 0)
       (each (start end num) mappings
         (= (aref result (list->num start) (list->num end))
            num))))
STYLE-WARNING: redefining >::BUILD-MATRIX in DEFUN
BUILD-MATRIX
>> ***
(((1 2 3) (1 2 3) 4) ((1 2 3) (1 3 2) 5) ((1 2 3) (3 2 1) 4)
 ((1 2 3) (2 1 3) 5) ((1 2 3) (2 3 1) 5) ((1 2 3) (3 1 2) 4)
 ((1 3 2) (1 3 2) 4) ((1 3 2) (1 2 3) 5) ((1 3 2) (2 3 1) 4)
 ((1 3 2) (3 1 2) 5) ((1 3 2) (3 2 1) 5) ((1 3 2) (2 1 3) 4)
 ((3 2 1) (3 2 1) 4) ((3 2 1) (3 1 2) 5) ((3 2 1) (1 2 3) 4)
 ((3 2 1) (2 3 1) 5) ((3 2 1) (2 1 3) 5) ((3 2 1) (1 3 2) 4)
 ((2 1 3) (2 1 3) 4) ((2 1 3) (2 3 1) 5) ((2 1 3) (3 1 2) 4)
 ((2 1 3) (1 2 3) 5) ((2 1 3) (1 3 2) 5) ((2 1 3) (3 2 1) 4)
 ((2 3 1) (2 3 1) 4) ((2 3 1) (2 1 3) 5) ((2 3 1) (1 3 2) 4)
 ((2 3 1) (3 2 1) 5) ((2 3 1) (3 1 2) 5) ((2 3 1) (1 2 3) 4)
 ((3 1 2) (3 1 2) 4) ((3 1 2) (3 2 1) 5) ((3 1 2) (2 1 3) 4)
 ((3 1 2) (1 3 2) 5) ((3 1 2) (1 2 3) 5) ((3 1 2) (2 3 1) 4))
>> (build-matrix *)
#2A((4 5 4 5 5 4)
    (5 4 5 4 4 5)
    (4 4 4 5 5 5)
    (5 5 4 4 5 4)
    (4 4 5 5 4 5)
    (5 5 5 4 4 4))
>> (def build-matrix (mappings)
     (ret result (make-array (list 6 6) :initial-element 0)
       (each (start end num) mappings
         (= (aref result (list->num start) (list->num end))
            (/ num 27)))))
STYLE-WARNING: redefining >::BUILD-MATRIX in DEFUN
BUILD-MATRIX
>> ***
(((1 2 3) (1 2 3) 4) ((1 2 3) (1 3 2) 5) ((1 2 3) (3 2 1) 4)
 ((1 2 3) (2 1 3) 5) ((1 2 3) (2 3 1) 5) ((1 2 3) (3 1 2) 4)
 ((1 3 2) (1 3 2) 4) ((1 3 2) (1 2 3) 5) ((1 3 2) (2 3 1) 4)
 ((1 3 2) (3 1 2) 5) ((1 3 2) (3 2 1) 5) ((1 3 2) (2 1 3) 4)
 ((3 2 1) (3 2 1) 4) ((3 2 1) (3 1 2) 5) ((3 2 1) (1 2 3) 4)
 ((3 2 1) (2 3 1) 5) ((3 2 1) (2 1 3) 5) ((3 2 1) (1 3 2) 4)
 ((2 1 3) (2 1 3) 4) ((2 1 3) (2 3 1) 5) ((2 1 3) (3 1 2) 4)
 ((2 1 3) (1 2 3) 5) ((2 1 3) (1 3 2) 5) ((2 1 3) (3 2 1) 4)
 ((2 3 1) (2 3 1) 4) ((2 3 1) (2 1 3) 5) ((2 3 1) (1 3 2) 4)
 ((2 3 1) (3 2 1) 5) ((2 3 1) (3 1 2) 5) ((2 3 1) (1 2 3) 4)
 ((3 1 2) (3 1 2) 4) ((3 1 2) (3 2 1) 5) ((3 1 2) (2 1 3) 4)
 ((3 1 2) (1 3 2) 5) ((3 1 2) (1 2 3) 5) ((3 1 2) (2 3 1) 4))
>> (build-matrix *)
#2A((4/27 5/27 4/27 5/27 5/27 4/27)
    (5/27 4/27 5/27 4/27 4/27 5/27)
    (4/27 4/27 4/27 5/27 5/27 5/27)
    (5/27 5/27 4/27 4/27 5/27 4/27)
    (4/27 4/27 5/27 5/27 4/27 5/27)
    (5/27 5/27 5/27 4/27 4/27 4/27))
>> (def list->num (x)
     (cadr (assoc x '((1 2 3) 0) ((1 3 2) 1)
                     ((2 1 3) 2) ((2 3 1) 3)
                     ((3 1 2) 4) ((3 2 1) 5))))
; in: DEF LIST->NUM
;     ((1 3 2) 1)
; 
; caught ERROR:
;   illegal function call

;     ((2 1 3) 2)
; 
; caught ERROR:
;   illegal function call

;     ((2 3 1) 3)
; 
; caught ERROR:
;   illegal function call

;     ((3 1 2) 4)
; 
; caught ERROR:
;   illegal function call

;     ((3 2 1) 5)
; 
; caught ERROR:
;   illegal function call

;     (ASSOC >::X '((1 2 3) 0) ((1 3 2) 1) ((2 1 3) 2) ((2 3 1) 3) ((3 1 2) 4)
;            ((3 2 1) 5))
; 
; caught WARNING:
;   The function has an odd number of arguments in the keyword portion.
; 
; compilation unit finished
;   caught 5 ERROR conditions
;   caught 1 WARNING condition
STYLE-WARNING: redefining >::LIST->NUM in DEFUN
LIST->NUM
>> (def list->num (x)
     (cadr (assoc x '(((1 2 3) 0) ((1 3 2) 1)
                      ((2 1 3) 2) ((2 3 1) 3)
                      ((3 1 2) 4) ((3 2 1) 5))
                  :test #'iso)))
STYLE-WARNING: redefining >::LIST->NUM in DEFUN
LIST->NUM
>> (list->num '(1 2 3))
0
>> (list->num '(2 1 3))
2
>> '(((1 2 3) (1 2 3) 4) ((1 2 3) (1 3 2) 5) ((1 2 3) (3 2 1) 4)
 ((1 2 3) (2 1 3) 5) ((1 2 3) (2 3 1) 5) ((1 2 3) (3 1 2) 4)
 ((1 3 2) (1 3 2) 4) ((1 3 2) (1 2 3) 5) ((1 3 2) (2 3 1) 4)
 ((1 3 2) (3 1 2) 5) ((1 3 2) (3 2 1) 5) ((1 3 2) (2 1 3) 4)
 ((3 2 1) (3 2 1) 4) ((3 2 1) (3 1 2) 5) ((3 2 1) (1 2 3) 4)
 ((3 2 1) (2 3 1) 5) ((3 2 1) (2 1 3) 5) ((3 2 1) (1 3 2) 4)
 ((2 1 3) (2 1 3) 4) ((2 1 3) (2 3 1) 5) ((2 1 3) (3 1 2) 4)
 ((2 1 3) (1 2 3) 5) ((2 1 3) (1 3 2) 5) ((2 1 3) (3 2 1) 4)
 ((2 3 1) (2 3 1) 4) ((2 3 1) (2 1 3) 5) ((2 3 1) (1 3 2) 4)
 ((2 3 1) (3 2 1) 5) ((2 3 1) (3 1 2) 5) ((2 3 1) (1 2 3) 4)
 ((3 1 2) (3 1 2) 4) ((3 1 2) (3 2 1) 5) ((3 1 2) (2 1 3) 4)
 ((3 1 2) (1 3 2) 5) ((3 1 2) (1 2 3) 5) ((3 1 2) (2 3 1) 4))
(((1 2 3) (1 2 3) 4) ((1 2 3) (1 3 2) 5) ((1 2 3) (3 2 1) 4)
 ((1 2 3) (2 1 3) 5) ((1 2 3) (2 3 1) 5) ((1 2 3) (3 1 2) 4)
 ((1 3 2) (1 3 2) 4) ((1 3 2) (1 2 3) 5) ((1 3 2) (2 3 1) 4)
 ((1 3 2) (3 1 2) 5) ((1 3 2) (3 2 1) 5) ((1 3 2) (2 1 3) 4)
 ((3 2 1) (3 2 1) 4) ((3 2 1) (3 1 2) 5) ((3 2 1) (1 2 3) 4)
 ((3 2 1) (2 3 1) 5) ((3 2 1) (2 1 3) 5) ((3 2 1) (1 3 2) 4)
 ((2 1 3) (2 1 3) 4) ((2 1 3) (2 3 1) 5) ((2 1 3) (3 1 2) 4)
 ((2 1 3) (1 2 3) 5) ((2 1 3) (1 3 2) 5) ((2 1 3) (3 2 1) 4)
 ((2 3 1) (2 3 1) 4) ((2 3 1) (2 1 3) 5) ((2 3 1) (1 3 2) 4)
 ((2 3 1) (3 2 1) 5) ((2 3 1) (3 1 2) 5) ((2 3 1) (1 2 3) 4)
 ((3 1 2) (3 1 2) 4) ((3 1 2) (3 2 1) 5) ((3 1 2) (2 1 3) 4)
 ((3 1 2) (1 3 2) 5) ((3 1 2) (1 2 3) 5) ((3 1 2) (2 3 1) 4))
>> (build-matrix *)
#2A((4/27 5/27 5/27 5/27 4/27 4/27)
    (5/27 4/27 4/27 4/27 5/27 5/27)
    (5/27 5/27 4/27 5/27 4/27 4/27)
    (4/27 4/27 5/27 4/27 5/27 5/27)
    (5/27 5/27 4/27 4/27 4/27 5/27)
    (4/27 4/27 5/27 5/27 5/27 4/27))
>> (def mult (a b)
     (ret result (make-array (array-dimensions a) :initial-element 0)
       (up i 0 (array-dimension a 0)
         (up j 0 (array-dimension b 1)
           (up k 0 (array-dimension a 1)
             (++ result.i.j (* a.i.k b.k.j)))))))
MULT
>> **
#2A((4/27 5/27 5/27 5/27 4/27 4/27)
    (5/27 4/27 4/27 4/27 5/27 5/27)
    (5/27 5/27 4/27 5/27 4/27 4/27)
    (4/27 4/27 5/27 4/27 5/27 5/27)
    (5/27 5/27 4/27 4/27 4/27 5/27)
    (4/27 4/27 5/27 5/27 5/27 4/27))
>> (mult * *)
#2A((122/729 121/729 121/729 121/729 122/729 122/729)
    (121/729 122/729 122/729 122/729 121/729 121/729)
    (121/729 121/729 122/729 121/729 122/729 122/729)
    (122/729 122/729 121/729 122/729 121/729 121/729)
    (121/729 121/729 122/729 122/729 122/729 121/729)
    (122/729 122/729 121/729 121/729 121/729 122/729))
>> (mult * *)
#2A((88574/531441 88573/531441 88573/531441 88573/531441 88574/531441
     88574/531441)
    (88573/531441 88574/531441 88574/531441 88574/531441 88573/531441
     88573/531441)
    (88573/531441 88573/531441 88574/531441 88573/531441 88574/531441
     88574/531441)
    (88574/531441 88574/531441 88573/531441 88574/531441 88573/531441
     88573/531441)
    (88573/531441 88573/531441 88574/531441 88574/531441 88574/531441
     88573/531441)
    (88574/531441 88574/531441 88573/531441 88573/531441 88573/531441
     88574/531441))
>> #2A((4/27 5/27 5/27 5/27 4/27 4/27)
    (5/27 4/27 4/27 4/27 5/27 5/27)
    (5/27 5/27 4/27 5/27 4/27 4/27)
    (4/27 4/27 5/27 4/27 5/27 5/27)
    (5/27 5/27 4/27 4/27 4/27 5/27)
    (4/27 4/27 5/27 5/27 5/27 4/27))
#2A((4/27 5/27 5/27 5/27 4/27 4/27)
    (5/27 4/27 4/27 4/27 5/27 5/27)
    (5/27 5/27 4/27 5/27 4/27 4/27)
    (4/27 4/27 5/27 4/27 5/27 5/27)
    (5/27 5/27 4/27 4/27 4/27 5/27)
    (4/27 4/27 5/27 5/27 5/27 4/27))
>> (mapv #'float (linearlize *))
#(0.14814815 0.18518518 0.18518518 0.18518518 0.14814815 0.14814815 0.18518518
  0.14814815 0.14814815 0.14814815 0.18518518 0.18518518 0.18518518 0.18518518
  0.14814815 0.18518518 0.14814815 0.14814815 0.14814815 0.14814815 0.18518518
  0.14814815 0.18518518 0.18518518 0.18518518 0.18518518 0.14814815 0.14814815
  0.14814815 0.18518518 0.14814815 0.14814815 0.18518518 0.18518518 0.18518518
  0.14814815)
>> (make-array (list 6 6) :displaced-to *)
#2A((0.14814815 0.18518518 0.18518518 0.18518518 0.14814815 0.14814815)
    (0.18518518 0.14814815 0.14814815 0.14814815 0.18518518 0.18518518)
    (0.18518518 0.18518518 0.14814815 0.18518518 0.14814815 0.14814815)
    (0.14814815 0.14814815 0.18518518 0.14814815 0.18518518 0.18518518)
    (0.18518518 0.18518518 0.14814815 0.14814815 0.14814815 0.18518518)
    (0.14814815 0.14814815 0.18518518 0.18518518 0.18518518 0.14814815))
>> (mult * *)
#2A((0.16735253 0.16598079 0.16598079 0.16598079 0.16735253 0.16735253)
    (0.16598079 0.16735253 0.16735253 0.16735253 0.16598079 0.16598079)
    (0.16598079 0.16598079 0.16735253 0.16598079 0.16735253 0.16735253)
    (0.16735253 0.16735253 0.16598079 0.16735253 0.16598079 0.16598079)
    (0.16598079 0.16598079 0.16735253 0.16735253 0.16735253 0.16598079)
    (0.16735253 0.16735253 0.16598079 0.16598079 0.16598079 0.16735253))
>> (mult * *)
#2A((0.1666676 0.1666657 0.1666657 0.1666657 0.16666758 0.16666758)
    (0.1666657 0.16666758 0.1666676 0.1666676 0.16666572 0.1666657)
    (0.1666657 0.1666657 0.16666758 0.1666657 0.16666758 0.16666758)
    (0.16666758 0.16666758 0.16666572 0.16666758 0.16666572 0.1666657)
    (0.1666657 0.1666657 0.1666676 0.1666676 0.1666676 0.1666657)
    (0.16666758 0.16666758 0.1666657 0.1666657 0.1666657 0.1666676))
>> ***
#2A((0.14814815 0.18518518 0.18518518 0.18518518 0.14814815 0.14814815)
    (0.18518518 0.14814815 0.14814815 0.14814815 0.18518518 0.18518518)
    (0.18518518 0.18518518 0.14814815 0.18518518 0.14814815 0.14814815)
    (0.14814815 0.14814815 0.18518518 0.14814815 0.18518518 0.18518518)
    (0.18518518 0.18518518 0.14814815 0.14814815 0.14814815 0.18518518)
    (0.14814815 0.14814815 0.18518518 0.18518518 0.18518518 0.14814815))
>> (def mexpt (a n)
     (calln (dec n) [mult a _] a))
; in: DEF MEXPT
;     (CLAMP:CALLN (CLAMP:DEC >::N) >::[MULT >::A >::_] >::A)
; 
; caught STYLE-WARNING:
;   The function was called with five arguments, but wants exactly three.

; in: DEF MEXPT
;     (CLAMP:CALLN (CLAMP:DEC >::N) >::[MULT >::A >::_] >::A)
; 
; caught WARNING:
;   undefined variable: [MULT
; 
; caught WARNING:
;   undefined variable: _]
; 
; compilation unit finished
;   Undefined variables:
;     [MULT _]
;   caught 2 WARNING conditions
;   caught 1 STYLE-WARNING condition
MEXPT
>> (syntax:use-syntax :clamp)
((">" . #<NAMED-READTABLE :CURRENT {1006E09123}>)
 ("CLAMP-EXPERIMENTAL" . #<READTABLE {10080EF073}>)
 ("CLAMP-EXPERIMENTAL" . #<READTABLE {10080EF0B3}>)
 ("CLAMP-EXPERIMENTAL" . #<READTABLE {10080EF0F3}>)
 ("CLAMP-EXPERIMENTAL" . #<READTABLE {10080EF133}>)
 ("CLAMP-EXPERIMENTAL" . #<READTABLE {10080EF173}>)
 ("CLAMP-EXPERIMENTAL" . #<READTABLE {10080EF1B3}>)
 ("CLAMP" . #<READTABLE {10080EF1F3}>) ("CLAMP" . #<READTABLE {10080EF233}>)
 ("CLAMP" . #<READTABLE {10080EF273}>) ("CLAMP" . #<READTABLE {10080EF2B3}>)
 ("CLAMP" . #<READTABLE {10080EF2F3}>) ("CLAMP" . #<READTABLE {10080EF333}>)
 ("CLAMP" . #<READTABLE {10080EF373}>) ("CLAMP" . #<READTABLE {10080EF3B3}>)
 ("CLAMP" . #<READTABLE {10080EF3F3}>) ("CLAMP" . #<READTABLE {10080EF433}>)
 ("CLAMP" . #<READTABLE {10080EF473}>) ("CLAMP" . #<READTABLE {10080EF4B3}>)
 ("CLAMP" . #<READTABLE {10080EF4F3}>) ("CLAMP" . #<READTABLE {10080EF533}>)
 ("CLAMP" . #<READTABLE {10080EF573}>) ("CLAMP" . #<READTABLE {10080EF5B3}>)
 ("CLAMP" . #<READTABLE {10080EF5F3}>) ("CLAMP" . #<READTABLE {10080EF633}>)
 ("CLAMP" . #<READTABLE {10080EF673}>) ("CLAMP" . #<READTABLE {10080EF6B3}>)
 ("CLAMP" . #<READTABLE {10080EF6F3}>) ("CLAMP" . #<READTABLE {10080EF733}>)
 ("SB-CLTL2" . #<READTABLE {1004ADD2B3}>)
 ("SB-INTROSPECT" . #<READTABLE {1004ADD2B3}>)
 ("SB-BSD-SOCKETS" . #<READTABLE {1004ADD2B3}>)
 ("SB-BSD-SOCKETS-INTERNAL" . #<READTABLE {1004ADD2B3}>)
 ("SB-POSIX" . #<READTABLE {1004ADD2B3}>)
 ("SB-ALIEN" . #<READTABLE {1004ADD2B3}>)
 ("SB-ALIEN-INTERNALS" . #<READTABLE {1004ADD2B3}>)
 ("SB-ASSEM" . #<READTABLE {1004ADD2B3}>)
 ("SB-BIGNUM" . #<READTABLE {1004ADD2B3}>) ("SB-C" . #<READTABLE {1004ADD2B3}>)
 ("SB-DEBUG" . #<READTABLE {1004ADD2B3}>) ("SB-DI" . #<READTABLE {1004ADD2B3}>)
 ("SB-DISASSEM" . #<READTABLE {1004ADD2B3}>)
 ("SB-FASL" . #<READTABLE {1004ADD2B3}>)
 ("SB-IMPL" . #<READTABLE {1004ADD2B3}>) ("SB-EXT" . #<READTABLE {1004ADD2B3}>)
 ("SB-FORMAT" . #<READTABLE {1004ADD2B3}>)
 ("SB-GRAY" . #<READTABLE {1004ADD2B3}>) ("SB-INT" . #<READTABLE {1004ADD2B3}>)
 ("SB-KERNEL" . #<READTABLE {1004ADD2B3}>)
 ("SB-THREAD" . #<READTABLE {1004ADD2B3}>)
 ("SB-LOOP" . #<READTABLE {1004ADD2B3}>) ("SB-MOP" . #<READTABLE {1004ADD2B3}>)
 ("SB-REGALLOC" . #<READTABLE {1004ADD2B3}>)
 ("SB-PCL" . #<READTABLE {1004ADD2B3}>)
 ("SB-PRETTY" . #<READTABLE {1004ADD2B3}>)
 ("SB-PROFILE" . #<READTABLE {1004ADD2B3}>) ..)
>> (def mexpt (a n)
     (calln (dec n) [mult a _] a))
STYLE-WARNING: redefining >::MEXPT in DEFUN
MEXPT
>> ***
MEXPT
>> #2A((0.14814815 0.18518518 0.18518518 0.18518518 0.14814815 0.14814815)
    (0.18518518 0.14814815 0.14814815 0.14814815 0.18518518 0.18518518)
    (0.18518518 0.18518518 0.14814815 0.18518518 0.14814815 0.14814815)
    (0.14814815 0.14814815 0.18518518 0.14814815 0.18518518 0.18518518)
    (0.18518518 0.18518518 0.14814815 0.14814815 0.14814815 0.18518518)
    (0.14814815 0.14814815 0.18518518 0.18518518 0.18518518 0.14814815))
#2A((0.14814815 0.18518518 0.18518518 0.18518518 0.14814815 0.14814815)
    (0.18518518 0.14814815 0.14814815 0.14814815 0.18518518 0.18518518)
    (0.18518518 0.18518518 0.14814815 0.18518518 0.14814815 0.14814815)
    (0.14814815 0.14814815 0.18518518 0.14814815 0.18518518 0.18518518)
    (0.18518518 0.18518518 0.14814815 0.14814815 0.14814815 0.18518518)
    (0.14814815 0.14814815 0.18518518 0.18518518 0.18518518 0.14814815))
>> (mexpt * 1)
#2A((0.14814815 0.18518518 0.18518518 0.18518518 0.14814815 0.14814815)
    (0.18518518 0.14814815 0.14814815 0.14814815 0.18518518 0.18518518)
    (0.18518518 0.18518518 0.14814815 0.18518518 0.14814815 0.14814815)
    (0.14814815 0.14814815 0.18518518 0.14814815 0.18518518 0.18518518)
    (0.18518518 0.18518518 0.14814815 0.14814815 0.14814815 0.18518518)
    (0.14814815 0.14814815 0.18518518 0.18518518 0.18518518 0.14814815))
>> (mexpt * 2)
#2A((0.16735253 0.16598079 0.16598079 0.16598079 0.16735253 0.16735253)
    (0.16598079 0.16735253 0.16735253 0.16735253 0.16598079 0.16598079)
    (0.16598079 0.16598079 0.16735253 0.16598079 0.16735253 0.16735253)
    (0.16735253 0.16735253 0.16598079 0.16735253 0.16598079 0.16598079)
    (0.16598079 0.16598079 0.16735253 0.16735253 0.16735253 0.16598079)
    (0.16735253 0.16735253 0.16598079 0.16598079 0.16598079 0.16735253))
>> **
#2A((0.14814815 0.18518518 0.18518518 0.18518518 0.14814815 0.14814815)
    (0.18518518 0.14814815 0.14814815 0.14814815 0.18518518 0.18518518)
    (0.18518518 0.18518518 0.14814815 0.18518518 0.14814815 0.14814815)
    (0.14814815 0.14814815 0.18518518 0.14814815 0.18518518 0.18518518)
    (0.18518518 0.18518518 0.14814815 0.14814815 0.14814815 0.18518518)
    (0.14814815 0.14814815 0.18518518 0.18518518 0.18518518 0.14814815))
>> (mult * *)
#2A((0.16735253 0.16598079 0.16598079 0.16598079 0.16735253 0.16735253)
    (0.16598079 0.16735253 0.16735253 0.16735253 0.16598079 0.16598079)
    (0.16598079 0.16598079 0.16735253 0.16598079 0.16735253 0.16735253)
    (0.16735253 0.16735253 0.16598079 0.16735253 0.16598079 0.16598079)
    (0.16598079 0.16598079 0.16735253 0.16735253 0.16735253 0.16598079)
    (0.16735253 0.16735253 0.16598079 0.16598079 0.16598079 0.16735253))
>> (loop for i from 1 to 10 collect (mexpt ** i))
(#2A((0.14814815 0.18518518 0.18518518 0.18518518 0.14814815 0.14814815)
     (0.18518518 0.14814815 0.14814815 0.14814815 0.18518518 0.18518518)
     (0.18518518 0.18518518 0.14814815 0.18518518 0.14814815 0.14814815)
     (0.14814815 0.14814815 0.18518518 0.14814815 0.18518518 0.18518518)
     (0.18518518 0.18518518 0.14814815 0.14814815 0.14814815 0.18518518)
     (0.14814815 0.14814815 0.18518518 0.18518518 0.18518518 0.14814815))
 #2A((0.16735253 0.16598079 0.16598079 0.16598079 0.16735253 0.16735253)
     (0.16598079 0.16735253 0.16735253 0.16735253 0.16598079 0.16598079)
     (0.16598079 0.16598079 0.16735253 0.16598079 0.16735253 0.16735253)
     (0.16735253 0.16735253 0.16598079 0.16735253 0.16598079 0.16598079)
     (0.16598079 0.16598079 0.16735253 0.16735253 0.16735253 0.16598079)
     (0.16735253 0.16735253 0.16598079 0.16598079 0.16598079 0.16735253))
 #2A((0.16664125 0.16669206 0.16669206 0.16669206 0.16664125 0.16664127)
     (0.16669206 0.16664125 0.16664125 0.16664125 0.16669205 0.16669206)
     (0.16669206 0.16669206 0.16664125 0.16669206 0.16664125 0.16664127)
     (0.16664127 0.16664127 0.16669206 0.16664125 0.16669206 0.16669206)
     (0.16669206 0.16669206 0.16664125 0.16664125 0.16664125 0.16669206)
     (0.16664125 0.16664125 0.16669206 0.16669206 0.16669206 0.16664127))
 #2A((0.1666676 0.1666657 0.1666657 0.1666657 0.16666758 0.16666761)
     (0.1666657 0.1666676 0.1666676 0.1666676 0.16666572 0.16666573)
     (0.1666657 0.1666657 0.16666758 0.1666657 0.16666758 0.16666761)
     (0.1666676 0.1666676 0.16666572 0.1666676 0.16666572 0.16666573)
     (0.16666572 0.16666572 0.1666676 0.1666676 0.1666676 0.16666573)
     (0.1666676 0.1666676 0.1666657 0.1666657 0.1666657 0.16666761))
 #2A((0.16666663 0.16666669 0.16666667 0.16666667 0.16666661 0.16666663)
     (0.16666669 0.16666661 0.16666661 0.16666661 0.16666667 0.1666667)
     (0.16666669 0.16666669 0.16666661 0.16666667 0.16666661 0.16666663)
     (0.16666661 0.16666661 0.16666667 0.16666661 0.16666667 0.1666667)
     (0.1666667 0.1666667 0.16666661 0.16666661 0.16666661 0.16666672)
     (0.16666661 0.16666661 0.16666667 0.16666669 0.16666667 0.16666663))
 #2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667))
 #2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666) ..))
>> (setf *print-lines* nil)
NIL
>> **
(#2A((0.14814815 0.18518518 0.18518518 0.18518518 0.14814815 0.14814815)
     (0.18518518 0.14814815 0.14814815 0.14814815 0.18518518 0.18518518)
     (0.18518518 0.18518518 0.14814815 0.18518518 0.14814815 0.14814815)
     (0.14814815 0.14814815 0.18518518 0.14814815 0.18518518 0.18518518)
     (0.18518518 0.18518518 0.14814815 0.14814815 0.14814815 0.18518518)
     (0.14814815 0.14814815 0.18518518 0.18518518 0.18518518 0.14814815))
 #2A((0.16735253 0.16598079 0.16598079 0.16598079 0.16735253 0.16735253)
     (0.16598079 0.16735253 0.16735253 0.16735253 0.16598079 0.16598079)
     (0.16598079 0.16598079 0.16735253 0.16598079 0.16735253 0.16735253)
     (0.16735253 0.16735253 0.16598079 0.16735253 0.16598079 0.16598079)
     (0.16598079 0.16598079 0.16735253 0.16735253 0.16735253 0.16598079)
     (0.16735253 0.16735253 0.16598079 0.16598079 0.16598079 0.16735253))
 #2A((0.16664125 0.16669206 0.16669206 0.16669206 0.16664125 0.16664127)
     (0.16669206 0.16664125 0.16664125 0.16664125 0.16669205 0.16669206)
     (0.16669206 0.16669206 0.16664125 0.16669206 0.16664125 0.16664127)
     (0.16664127 0.16664127 0.16669206 0.16664125 0.16669206 0.16669206)
     (0.16669206 0.16669206 0.16664125 0.16664125 0.16664125 0.16669206)
     (0.16664125 0.16664125 0.16669206 0.16669206 0.16669206 0.16664127))
 #2A((0.1666676 0.1666657 0.1666657 0.1666657 0.16666758 0.16666761)
     (0.1666657 0.1666676 0.1666676 0.1666676 0.16666572 0.16666573)
     (0.1666657 0.1666657 0.16666758 0.1666657 0.16666758 0.16666761)
     (0.1666676 0.1666676 0.16666572 0.1666676 0.16666572 0.16666573)
     (0.16666572 0.16666572 0.1666676 0.1666676 0.1666676 0.16666573)
     (0.1666676 0.1666676 0.1666657 0.1666657 0.1666657 0.16666761))
 #2A((0.16666663 0.16666669 0.16666667 0.16666667 0.16666661 0.16666663)
     (0.16666669 0.16666661 0.16666661 0.16666661 0.16666667 0.1666667)
     (0.16666669 0.16666669 0.16666661 0.16666667 0.16666661 0.16666663)
     (0.16666661 0.16666661 0.16666667 0.16666661 0.16666667 0.1666667)
     (0.1666667 0.1666667 0.16666661 0.16666661 0.16666661 0.16666672)
     (0.16666661 0.16666661 0.16666667 0.16666669 0.16666667 0.16666663))
 #2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667))
 #2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666))
 #2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666))
 #2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666))
 #2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)))
>> (firstn * 5)
; Evaluation aborted on #<TYPE-ERROR expected-type: REAL
             datum:
             (#<(ARRAY T (6 6)) {10065D4E1F}> #<(SIMPLE-ARRAY T (6 6)) {100815D64F}> ..)>.
>> **
NIL
>> '(#2A((0.14814815 0.18518518 0.18518518 0.18518518 0.14814815 0.14814815)
     (0.18518518 0.14814815 0.14814815 0.14814815 0.18518518 0.18518518)
     (0.18518518 0.18518518 0.14814815 0.18518518 0.14814815 0.14814815)
     (0.14814815 0.14814815 0.18518518 0.14814815 0.18518518 0.18518518)
     (0.18518518 0.18518518 0.14814815 0.14814815 0.14814815 0.18518518)
     (0.14814815 0.14814815 0.18518518 0.18518518 0.18518518 0.14814815))
 #2A((0.16735253 0.16598079 0.16598079 0.16598079 0.16735253 0.16735253)
     (0.16598079 0.16735253 0.16735253 0.16735253 0.16598079 0.16598079)
     (0.16598079 0.16598079 0.16735253 0.16598079 0.16735253 0.16735253)
     (0.16735253 0.16735253 0.16598079 0.16735253 0.16598079 0.16598079)
     (0.16598079 0.16598079 0.16735253 0.16735253 0.16735253 0.16598079)
     (0.16735253 0.16735253 0.16598079 0.16598079 0.16598079 0.16735253))
 #2A((0.16664125 0.16669206 0.16669206 0.16669206 0.16664125 0.16664127)
     (0.16669206 0.16664125 0.16664125 0.16664125 0.16669205 0.16669206)
     (0.16669206 0.16669206 0.16664125 0.16669206 0.16664125 0.16664127)
     (0.16664127 0.16664127 0.16669206 0.16664125 0.16669206 0.16669206)
     (0.16669206 0.16669206 0.16664125 0.16664125 0.16664125 0.16669206)
     (0.16664125 0.16664125 0.16669206 0.16669206 0.16669206 0.16664127))
 #2A((0.1666676 0.1666657 0.1666657 0.1666657 0.16666758 0.16666761)
     (0.1666657 0.1666676 0.1666676 0.1666676 0.16666572 0.16666573)
     (0.1666657 0.1666657 0.16666758 0.1666657 0.16666758 0.16666761)
     (0.1666676 0.1666676 0.16666572 0.1666676 0.16666572 0.16666573)
     (0.16666572 0.16666572 0.1666676 0.1666676 0.1666676 0.16666573)
     (0.1666676 0.1666676 0.1666657 0.1666657 0.1666657 0.16666761))
 #2A((0.16666663 0.16666669 0.16666667 0.16666667 0.16666661 0.16666663)
     (0.16666669 0.16666661 0.16666661 0.16666661 0.16666667 0.1666667)
     (0.16666669 0.16666669 0.16666661 0.16666667 0.16666661 0.16666663)
     (0.16666661 0.16666661 0.16666667 0.16666661 0.16666667 0.1666667)
     (0.1666667 0.1666667 0.16666661 0.16666661 0.16666661 0.16666672)
     (0.16666661 0.16666661 0.16666667 0.16666669 0.16666667 0.16666663))
 #2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667))
 #2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666))
 #2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666))
 #2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666))
 #2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)))
(#2A((0.14814815 0.18518518 0.18518518 0.18518518 0.14814815 0.14814815)
     (0.18518518 0.14814815 0.14814815 0.14814815 0.18518518 0.18518518)
     (0.18518518 0.18518518 0.14814815 0.18518518 0.14814815 0.14814815)
     (0.14814815 0.14814815 0.18518518 0.14814815 0.18518518 0.18518518)
     (0.18518518 0.18518518 0.14814815 0.14814815 0.14814815 0.18518518)
     (0.14814815 0.14814815 0.18518518 0.18518518 0.18518518 0.14814815))
 #2A((0.16735253 0.16598079 0.16598079 0.16598079 0.16735253 0.16735253)
     (0.16598079 0.16735253 0.16735253 0.16735253 0.16598079 0.16598079)
     (0.16598079 0.16598079 0.16735253 0.16598079 0.16735253 0.16735253)
     (0.16735253 0.16735253 0.16598079 0.16735253 0.16598079 0.16598079)
     (0.16598079 0.16598079 0.16735253 0.16735253 0.16735253 0.16598079)
     (0.16735253 0.16735253 0.16598079 0.16598079 0.16598079 0.16735253))
 #2A((0.16664125 0.16669206 0.16669206 0.16669206 0.16664125 0.16664127)
     (0.16669206 0.16664125 0.16664125 0.16664125 0.16669205 0.16669206)
     (0.16669206 0.16669206 0.16664125 0.16669206 0.16664125 0.16664127)
     (0.16664127 0.16664127 0.16669206 0.16664125 0.16669206 0.16669206)
     (0.16669206 0.16669206 0.16664125 0.16664125 0.16664125 0.16669206)
     (0.16664125 0.16664125 0.16669206 0.16669206 0.16669206 0.16664127))
 #2A((0.1666676 0.1666657 0.1666657 0.1666657 0.16666758 0.16666761)
     (0.1666657 0.1666676 0.1666676 0.1666676 0.16666572 0.16666573)
     (0.1666657 0.1666657 0.16666758 0.1666657 0.16666758 0.16666761)
     (0.1666676 0.1666676 0.16666572 0.1666676 0.16666572 0.16666573)
     (0.16666572 0.16666572 0.1666676 0.1666676 0.1666676 0.16666573)
     (0.1666676 0.1666676 0.1666657 0.1666657 0.1666657 0.16666761))
 #2A((0.16666663 0.16666669 0.16666667 0.16666667 0.16666661 0.16666663)
     (0.16666669 0.16666661 0.16666661 0.16666661 0.16666667 0.1666667)
     (0.16666669 0.16666669 0.16666661 0.16666667 0.16666661 0.16666663)
     (0.16666661 0.16666661 0.16666667 0.16666661 0.16666667 0.1666667)
     (0.1666667 0.1666667 0.16666661 0.16666661 0.16666661 0.16666672)
     (0.16666661 0.16666661 0.16666667 0.16666669 0.16666667 0.16666663))
 #2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667))
 #2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666))
 #2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666))
 #2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666))
 #2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)))
>> (firstn 5 *)
(#2A((0.14814815 0.18518518 0.18518518 0.18518518 0.14814815 0.14814815)
     (0.18518518 0.14814815 0.14814815 0.14814815 0.18518518 0.18518518)
     (0.18518518 0.18518518 0.14814815 0.18518518 0.14814815 0.14814815)
     (0.14814815 0.14814815 0.18518518 0.14814815 0.18518518 0.18518518)
     (0.18518518 0.18518518 0.14814815 0.14814815 0.14814815 0.18518518)
     (0.14814815 0.14814815 0.18518518 0.18518518 0.18518518 0.14814815))
 #2A((0.16735253 0.16598079 0.16598079 0.16598079 0.16735253 0.16735253)
     (0.16598079 0.16735253 0.16735253 0.16735253 0.16598079 0.16598079)
     (0.16598079 0.16598079 0.16735253 0.16598079 0.16735253 0.16735253)
     (0.16735253 0.16735253 0.16598079 0.16735253 0.16598079 0.16598079)
     (0.16598079 0.16598079 0.16735253 0.16735253 0.16735253 0.16598079)
     (0.16735253 0.16735253 0.16598079 0.16598079 0.16598079 0.16735253))
 #2A((0.16664125 0.16669206 0.16669206 0.16669206 0.16664125 0.16664127)
     (0.16669206 0.16664125 0.16664125 0.16664125 0.16669205 0.16669206)
     (0.16669206 0.16669206 0.16664125 0.16669206 0.16664125 0.16664127)
     (0.16664127 0.16664127 0.16669206 0.16664125 0.16669206 0.16669206)
     (0.16669206 0.16669206 0.16664125 0.16664125 0.16664125 0.16669206)
     (0.16664125 0.16664125 0.16669206 0.16669206 0.16669206 0.16664127))
 #2A((0.1666676 0.1666657 0.1666657 0.1666657 0.16666758 0.16666761)
     (0.1666657 0.1666676 0.1666676 0.1666676 0.16666572 0.16666573)
     (0.1666657 0.1666657 0.16666758 0.1666657 0.16666758 0.16666761)
     (0.1666676 0.1666676 0.16666572 0.1666676 0.16666572 0.16666573)
     (0.16666572 0.16666572 0.1666676 0.1666676 0.1666676 0.16666573)
     (0.1666676 0.1666676 0.1666657 0.1666657 0.1666657 0.16666761))
 #2A((0.16666663 0.16666669 0.16666667 0.16666667 0.16666661 0.16666663)
     (0.16666669 0.16666661 0.16666661 0.16666661 0.16666667 0.1666667)
     (0.16666669 0.16666669 0.16666661 0.16666667 0.16666661 0.16666663)
     (0.16666661 0.16666661 0.16666667 0.16666661 0.16666667 0.1666667)
     (0.1666667 0.1666667 0.16666661 0.16666661 0.16666661 0.16666672)
     (0.16666661 0.16666661 0.16666667 0.16666669 0.16666667 0.16666663)))
>> **
(#2A((0.14814815 0.18518518 0.18518518 0.18518518 0.14814815 0.14814815)
     (0.18518518 0.14814815 0.14814815 0.14814815 0.18518518 0.18518518)
     (0.18518518 0.18518518 0.14814815 0.18518518 0.14814815 0.14814815)
     (0.14814815 0.14814815 0.18518518 0.14814815 0.18518518 0.18518518)
     (0.18518518 0.18518518 0.14814815 0.14814815 0.14814815 0.18518518)
     (0.14814815 0.14814815 0.18518518 0.18518518 0.18518518 0.14814815))
 #2A((0.16735253 0.16598079 0.16598079 0.16598079 0.16735253 0.16735253)
     (0.16598079 0.16735253 0.16735253 0.16735253 0.16598079 0.16598079)
     (0.16598079 0.16598079 0.16735253 0.16598079 0.16735253 0.16735253)
     (0.16735253 0.16735253 0.16598079 0.16735253 0.16598079 0.16598079)
     (0.16598079 0.16598079 0.16735253 0.16735253 0.16735253 0.16598079)
     (0.16735253 0.16735253 0.16598079 0.16598079 0.16598079 0.16735253))
 #2A((0.16664125 0.16669206 0.16669206 0.16669206 0.16664125 0.16664127)
     (0.16669206 0.16664125 0.16664125 0.16664125 0.16669205 0.16669206)
     (0.16669206 0.16669206 0.16664125 0.16669206 0.16664125 0.16664127)
     (0.16664127 0.16664127 0.16669206 0.16664125 0.16669206 0.16669206)
     (0.16669206 0.16669206 0.16664125 0.16664125 0.16664125 0.16669206)
     (0.16664125 0.16664125 0.16669206 0.16669206 0.16669206 0.16664127))
 #2A((0.1666676 0.1666657 0.1666657 0.1666657 0.16666758 0.16666761)
     (0.1666657 0.1666676 0.1666676 0.1666676 0.16666572 0.16666573)
     (0.1666657 0.1666657 0.16666758 0.1666657 0.16666758 0.16666761)
     (0.1666676 0.1666676 0.16666572 0.1666676 0.16666572 0.16666573)
     (0.16666572 0.16666572 0.1666676 0.1666676 0.1666676 0.16666573)
     (0.1666676 0.1666676 0.1666657 0.1666657 0.1666657 0.16666761))
 #2A((0.16666663 0.16666669 0.16666667 0.16666667 0.16666661 0.16666663)
     (0.16666669 0.16666661 0.16666661 0.16666661 0.16666667 0.1666667)
     (0.16666669 0.16666669 0.16666661 0.16666667 0.16666661 0.16666663)
     (0.16666661 0.16666661 0.16666667 0.16666661 0.16666667 0.1666667)
     (0.1666667 0.1666667 0.16666661 0.16666661 0.16666661 0.16666672)
     (0.16666661 0.16666661 0.16666667 0.16666669 0.16666667 0.16666663))
 #2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667))
 #2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666))
 #2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666))
 #2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666))
 #2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)))
>> (firstn 6 *)
(#2A((0.14814815 0.18518518 0.18518518 0.18518518 0.14814815 0.14814815)
     (0.18518518 0.14814815 0.14814815 0.14814815 0.18518518 0.18518518)
     (0.18518518 0.18518518 0.14814815 0.18518518 0.14814815 0.14814815)
     (0.14814815 0.14814815 0.18518518 0.14814815 0.18518518 0.18518518)
     (0.18518518 0.18518518 0.14814815 0.14814815 0.14814815 0.18518518)
     (0.14814815 0.14814815 0.18518518 0.18518518 0.18518518 0.14814815))
 #2A((0.16735253 0.16598079 0.16598079 0.16598079 0.16735253 0.16735253)
     (0.16598079 0.16735253 0.16735253 0.16735253 0.16598079 0.16598079)
     (0.16598079 0.16598079 0.16735253 0.16598079 0.16735253 0.16735253)
     (0.16735253 0.16735253 0.16598079 0.16735253 0.16598079 0.16598079)
     (0.16598079 0.16598079 0.16735253 0.16735253 0.16735253 0.16598079)
     (0.16735253 0.16735253 0.16598079 0.16598079 0.16598079 0.16735253))
 #2A((0.16664125 0.16669206 0.16669206 0.16669206 0.16664125 0.16664127)
     (0.16669206 0.16664125 0.16664125 0.16664125 0.16669205 0.16669206)
     (0.16669206 0.16669206 0.16664125 0.16669206 0.16664125 0.16664127)
     (0.16664127 0.16664127 0.16669206 0.16664125 0.16669206 0.16669206)
     (0.16669206 0.16669206 0.16664125 0.16664125 0.16664125 0.16669206)
     (0.16664125 0.16664125 0.16669206 0.16669206 0.16669206 0.16664127))
 #2A((0.1666676 0.1666657 0.1666657 0.1666657 0.16666758 0.16666761)
     (0.1666657 0.1666676 0.1666676 0.1666676 0.16666572 0.16666573)
     (0.1666657 0.1666657 0.16666758 0.1666657 0.16666758 0.16666761)
     (0.1666676 0.1666676 0.16666572 0.1666676 0.16666572 0.16666573)
     (0.16666572 0.16666572 0.1666676 0.1666676 0.1666676 0.16666573)
     (0.1666676 0.1666676 0.1666657 0.1666657 0.1666657 0.16666761))
 #2A((0.16666663 0.16666669 0.16666667 0.16666667 0.16666661 0.16666663)
     (0.16666669 0.16666661 0.16666661 0.16666661 0.16666667 0.1666667)
     (0.16666669 0.16666669 0.16666661 0.16666667 0.16666661 0.16666663)
     (0.16666661 0.16666661 0.16666667 0.16666661 0.16666667 0.1666667)
     (0.1666667 0.1666667 0.16666661 0.16666661 0.16666661 0.16666672)
     (0.16666661 0.16666661 0.16666667 0.16666669 0.16666667 0.16666663))
 #2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)))
>> **
(#2A((0.14814815 0.18518518 0.18518518 0.18518518 0.14814815 0.14814815)
     (0.18518518 0.14814815 0.14814815 0.14814815 0.18518518 0.18518518)
     (0.18518518 0.18518518 0.14814815 0.18518518 0.14814815 0.14814815)
     (0.14814815 0.14814815 0.18518518 0.14814815 0.18518518 0.18518518)
     (0.18518518 0.18518518 0.14814815 0.14814815 0.14814815 0.18518518)
     (0.14814815 0.14814815 0.18518518 0.18518518 0.18518518 0.14814815))
 #2A((0.16735253 0.16598079 0.16598079 0.16598079 0.16735253 0.16735253)
     (0.16598079 0.16735253 0.16735253 0.16735253 0.16598079 0.16598079)
     (0.16598079 0.16598079 0.16735253 0.16598079 0.16735253 0.16735253)
     (0.16735253 0.16735253 0.16598079 0.16735253 0.16598079 0.16598079)
     (0.16598079 0.16598079 0.16735253 0.16735253 0.16735253 0.16598079)
     (0.16735253 0.16735253 0.16598079 0.16598079 0.16598079 0.16735253))
 #2A((0.16664125 0.16669206 0.16669206 0.16669206 0.16664125 0.16664127)
     (0.16669206 0.16664125 0.16664125 0.16664125 0.16669205 0.16669206)
     (0.16669206 0.16669206 0.16664125 0.16669206 0.16664125 0.16664127)
     (0.16664127 0.16664127 0.16669206 0.16664125 0.16669206 0.16669206)
     (0.16669206 0.16669206 0.16664125 0.16664125 0.16664125 0.16669206)
     (0.16664125 0.16664125 0.16669206 0.16669206 0.16669206 0.16664127))
 #2A((0.1666676 0.1666657 0.1666657 0.1666657 0.16666758 0.16666761)
     (0.1666657 0.1666676 0.1666676 0.1666676 0.16666572 0.16666573)
     (0.1666657 0.1666657 0.16666758 0.1666657 0.16666758 0.16666761)
     (0.1666676 0.1666676 0.16666572 0.1666676 0.16666572 0.16666573)
     (0.16666572 0.16666572 0.1666676 0.1666676 0.1666676 0.16666573)
     (0.1666676 0.1666676 0.1666657 0.1666657 0.1666657 0.16666761))
 #2A((0.16666663 0.16666669 0.16666667 0.16666667 0.16666661 0.16666663)
     (0.16666669 0.16666661 0.16666661 0.16666661 0.16666667 0.1666667)
     (0.16666669 0.16666669 0.16666661 0.16666667 0.16666661 0.16666663)
     (0.16666661 0.16666661 0.16666667 0.16666661 0.16666667 0.1666667)
     (0.1666667 0.1666667 0.16666661 0.16666661 0.16666661 0.16666672)
     (0.16666661 0.16666661 0.16666667 0.16666669 0.16666667 0.16666663))
 #2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667))
 #2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666))
 #2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666))
 #2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666))
 #2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)))
>> (firstn 7 *)
(#2A((0.14814815 0.18518518 0.18518518 0.18518518 0.14814815 0.14814815)
     (0.18518518 0.14814815 0.14814815 0.14814815 0.18518518 0.18518518)
     (0.18518518 0.18518518 0.14814815 0.18518518 0.14814815 0.14814815)
     (0.14814815 0.14814815 0.18518518 0.14814815 0.18518518 0.18518518)
     (0.18518518 0.18518518 0.14814815 0.14814815 0.14814815 0.18518518)
     (0.14814815 0.14814815 0.18518518 0.18518518 0.18518518 0.14814815))
 #2A((0.16735253 0.16598079 0.16598079 0.16598079 0.16735253 0.16735253)
     (0.16598079 0.16735253 0.16735253 0.16735253 0.16598079 0.16598079)
     (0.16598079 0.16598079 0.16735253 0.16598079 0.16735253 0.16735253)
     (0.16735253 0.16735253 0.16598079 0.16735253 0.16598079 0.16598079)
     (0.16598079 0.16598079 0.16735253 0.16735253 0.16735253 0.16598079)
     (0.16735253 0.16735253 0.16598079 0.16598079 0.16598079 0.16735253))
 #2A((0.16664125 0.16669206 0.16669206 0.16669206 0.16664125 0.16664127)
     (0.16669206 0.16664125 0.16664125 0.16664125 0.16669205 0.16669206)
     (0.16669206 0.16669206 0.16664125 0.16669206 0.16664125 0.16664127)
     (0.16664127 0.16664127 0.16669206 0.16664125 0.16669206 0.16669206)
     (0.16669206 0.16669206 0.16664125 0.16664125 0.16664125 0.16669206)
     (0.16664125 0.16664125 0.16669206 0.16669206 0.16669206 0.16664127))
 #2A((0.1666676 0.1666657 0.1666657 0.1666657 0.16666758 0.16666761)
     (0.1666657 0.1666676 0.1666676 0.1666676 0.16666572 0.16666573)
     (0.1666657 0.1666657 0.16666758 0.1666657 0.16666758 0.16666761)
     (0.1666676 0.1666676 0.16666572 0.1666676 0.16666572 0.16666573)
     (0.16666572 0.16666572 0.1666676 0.1666676 0.1666676 0.16666573)
     (0.1666676 0.1666676 0.1666657 0.1666657 0.1666657 0.16666761))
 #2A((0.16666663 0.16666669 0.16666667 0.16666667 0.16666661 0.16666663)
     (0.16666669 0.16666661 0.16666661 0.16666661 0.16666667 0.1666667)
     (0.16666669 0.16666669 0.16666661 0.16666667 0.16666661 0.16666663)
     (0.16666661 0.16666661 0.16666667 0.16666661 0.16666667 0.1666667)
     (0.1666667 0.1666667 0.16666661 0.16666661 0.16666661 0.16666672)
     (0.16666661 0.16666661 0.16666667 0.16666669 0.16666667 0.16666663))
 #2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667))
 #2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)))
>> **
(#2A((0.14814815 0.18518518 0.18518518 0.18518518 0.14814815 0.14814815)
     (0.18518518 0.14814815 0.14814815 0.14814815 0.18518518 0.18518518)
     (0.18518518 0.18518518 0.14814815 0.18518518 0.14814815 0.14814815)
     (0.14814815 0.14814815 0.18518518 0.14814815 0.18518518 0.18518518)
     (0.18518518 0.18518518 0.14814815 0.14814815 0.14814815 0.18518518)
     (0.14814815 0.14814815 0.18518518 0.18518518 0.18518518 0.14814815))
 #2A((0.16735253 0.16598079 0.16598079 0.16598079 0.16735253 0.16735253)
     (0.16598079 0.16735253 0.16735253 0.16735253 0.16598079 0.16598079)
     (0.16598079 0.16598079 0.16735253 0.16598079 0.16735253 0.16735253)
     (0.16735253 0.16735253 0.16598079 0.16735253 0.16598079 0.16598079)
     (0.16598079 0.16598079 0.16735253 0.16735253 0.16735253 0.16598079)
     (0.16735253 0.16735253 0.16598079 0.16598079 0.16598079 0.16735253))
 #2A((0.16664125 0.16669206 0.16669206 0.16669206 0.16664125 0.16664127)
     (0.16669206 0.16664125 0.16664125 0.16664125 0.16669205 0.16669206)
     (0.16669206 0.16669206 0.16664125 0.16669206 0.16664125 0.16664127)
     (0.16664127 0.16664127 0.16669206 0.16664125 0.16669206 0.16669206)
     (0.16669206 0.16669206 0.16664125 0.16664125 0.16664125 0.16669206)
     (0.16664125 0.16664125 0.16669206 0.16669206 0.16669206 0.16664127))
 #2A((0.1666676 0.1666657 0.1666657 0.1666657 0.16666758 0.16666761)
     (0.1666657 0.1666676 0.1666676 0.1666676 0.16666572 0.16666573)
     (0.1666657 0.1666657 0.16666758 0.1666657 0.16666758 0.16666761)
     (0.1666676 0.1666676 0.16666572 0.1666676 0.16666572 0.16666573)
     (0.16666572 0.16666572 0.1666676 0.1666676 0.1666676 0.16666573)
     (0.1666676 0.1666676 0.1666657 0.1666657 0.1666657 0.16666761))
 #2A((0.16666663 0.16666669 0.16666667 0.16666667 0.16666661 0.16666663)
     (0.16666669 0.16666661 0.16666661 0.16666661 0.16666667 0.1666667)
     (0.16666669 0.16666669 0.16666661 0.16666667 0.16666661 0.16666663)
     (0.16666661 0.16666661 0.16666667 0.16666661 0.16666667 0.1666667)
     (0.1666667 0.1666667 0.16666661 0.16666661 0.16666661 0.16666672)
     (0.16666661 0.16666661 0.16666667 0.16666669 0.16666667 0.16666663))
 #2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667))
 #2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666))
 #2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666))
 #2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666))
 #2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)))
>> (firstn 8 *)
(#2A((0.14814815 0.18518518 0.18518518 0.18518518 0.14814815 0.14814815)
     (0.18518518 0.14814815 0.14814815 0.14814815 0.18518518 0.18518518)
     (0.18518518 0.18518518 0.14814815 0.18518518 0.14814815 0.14814815)
     (0.14814815 0.14814815 0.18518518 0.14814815 0.18518518 0.18518518)
     (0.18518518 0.18518518 0.14814815 0.14814815 0.14814815 0.18518518)
     (0.14814815 0.14814815 0.18518518 0.18518518 0.18518518 0.14814815))
 #2A((0.16735253 0.16598079 0.16598079 0.16598079 0.16735253 0.16735253)
     (0.16598079 0.16735253 0.16735253 0.16735253 0.16598079 0.16598079)
     (0.16598079 0.16598079 0.16735253 0.16598079 0.16735253 0.16735253)
     (0.16735253 0.16735253 0.16598079 0.16735253 0.16598079 0.16598079)
     (0.16598079 0.16598079 0.16735253 0.16735253 0.16735253 0.16598079)
     (0.16735253 0.16735253 0.16598079 0.16598079 0.16598079 0.16735253))
 #2A((0.16664125 0.16669206 0.16669206 0.16669206 0.16664125 0.16664127)
     (0.16669206 0.16664125 0.16664125 0.16664125 0.16669205 0.16669206)
     (0.16669206 0.16669206 0.16664125 0.16669206 0.16664125 0.16664127)
     (0.16664127 0.16664127 0.16669206 0.16664125 0.16669206 0.16669206)
     (0.16669206 0.16669206 0.16664125 0.16664125 0.16664125 0.16669206)
     (0.16664125 0.16664125 0.16669206 0.16669206 0.16669206 0.16664127))
 #2A((0.1666676 0.1666657 0.1666657 0.1666657 0.16666758 0.16666761)
     (0.1666657 0.1666676 0.1666676 0.1666676 0.16666572 0.16666573)
     (0.1666657 0.1666657 0.16666758 0.1666657 0.16666758 0.16666761)
     (0.1666676 0.1666676 0.16666572 0.1666676 0.16666572 0.16666573)
     (0.16666572 0.16666572 0.1666676 0.1666676 0.1666676 0.16666573)
     (0.1666676 0.1666676 0.1666657 0.1666657 0.1666657 0.16666761))
 #2A((0.16666663 0.16666669 0.16666667 0.16666667 0.16666661 0.16666663)
     (0.16666669 0.16666661 0.16666661 0.16666661 0.16666667 0.1666667)
     (0.16666669 0.16666669 0.16666661 0.16666667 0.16666661 0.16666663)
     (0.16666661 0.16666661 0.16666667 0.16666661 0.16666667 0.1666667)
     (0.1666667 0.1666667 0.16666661 0.16666661 0.16666661 0.16666672)
     (0.16666661 0.16666661 0.16666667 0.16666669 0.16666667 0.16666663))
 #2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667))
 #2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666))
 #2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)))
>> **
(#2A((0.14814815 0.18518518 0.18518518 0.18518518 0.14814815 0.14814815)
     (0.18518518 0.14814815 0.14814815 0.14814815 0.18518518 0.18518518)
     (0.18518518 0.18518518 0.14814815 0.18518518 0.14814815 0.14814815)
     (0.14814815 0.14814815 0.18518518 0.14814815 0.18518518 0.18518518)
     (0.18518518 0.18518518 0.14814815 0.14814815 0.14814815 0.18518518)
     (0.14814815 0.14814815 0.18518518 0.18518518 0.18518518 0.14814815))
 #2A((0.16735253 0.16598079 0.16598079 0.16598079 0.16735253 0.16735253)
     (0.16598079 0.16735253 0.16735253 0.16735253 0.16598079 0.16598079)
     (0.16598079 0.16598079 0.16735253 0.16598079 0.16735253 0.16735253)
     (0.16735253 0.16735253 0.16598079 0.16735253 0.16598079 0.16598079)
     (0.16598079 0.16598079 0.16735253 0.16735253 0.16735253 0.16598079)
     (0.16735253 0.16735253 0.16598079 0.16598079 0.16598079 0.16735253))
 #2A((0.16664125 0.16669206 0.16669206 0.16669206 0.16664125 0.16664127)
     (0.16669206 0.16664125 0.16664125 0.16664125 0.16669205 0.16669206)
     (0.16669206 0.16669206 0.16664125 0.16669206 0.16664125 0.16664127)
     (0.16664127 0.16664127 0.16669206 0.16664125 0.16669206 0.16669206)
     (0.16669206 0.16669206 0.16664125 0.16664125 0.16664125 0.16669206)
     (0.16664125 0.16664125 0.16669206 0.16669206 0.16669206 0.16664127))
 #2A((0.1666676 0.1666657 0.1666657 0.1666657 0.16666758 0.16666761)
     (0.1666657 0.1666676 0.1666676 0.1666676 0.16666572 0.16666573)
     (0.1666657 0.1666657 0.16666758 0.1666657 0.16666758 0.16666761)
     (0.1666676 0.1666676 0.16666572 0.1666676 0.16666572 0.16666573)
     (0.16666572 0.16666572 0.1666676 0.1666676 0.1666676 0.16666573)
     (0.1666676 0.1666676 0.1666657 0.1666657 0.1666657 0.16666761))
 #2A((0.16666663 0.16666669 0.16666667 0.16666667 0.16666661 0.16666663)
     (0.16666669 0.16666661 0.16666661 0.16666661 0.16666667 0.1666667)
     (0.16666669 0.16666669 0.16666661 0.16666667 0.16666661 0.16666663)
     (0.16666661 0.16666661 0.16666667 0.16666661 0.16666667 0.1666667)
     (0.1666667 0.1666667 0.16666661 0.16666661 0.16666661 0.16666672)
     (0.16666661 0.16666661 0.16666667 0.16666669 0.16666667 0.16666663))
 #2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667))
 #2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666))
 #2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666))
 #2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666))
 #2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
     (0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)))
>> (def build-matrix (mappings)
     (ret result (make-array (list 6 6) :initial-element 0)
       (each (start end num) mappings
         (= (aref result (list->num end) (list->num start))
            (/ num 27)))))
STYLE-WARNING: redefining >::BUILD-MATRIX in DEFUN
BUILD-MATRIX
>> (build-matrix '(((1 2 3) (1 2 3) 4) ((1 2 3) (1 3 2) 5) ((1 2 3) (3 2 1) 4)
      ((1 2 3) (2 1 3) 5) ((1 2 3) (2 3 1) 5) ((1 2 3) (3 1 2) 4)
      ((1 3 2) (1 3 2) 4) ((1 3 2) (1 2 3) 5) ((1 3 2) (2 3 1) 4)
      ((1 3 2) (3 1 2) 5) ((1 3 2) (3 2 1) 5) ((1 3 2) (2 1 3) 4)
      ((3 2 1) (3 2 1) 4) ((3 2 1) (3 1 2) 5) ((3 2 1) (1 2 3) 4)
      ((3 2 1) (2 3 1) 5) ((3 2 1) (2 1 3) 5) ((3 2 1) (1 3 2) 4)
      ((2 1 3) (2 1 3) 4) ((2 1 3) (2 3 1) 5) ((2 1 3) (3 1 2) 4)
      ((2 1 3) (1 2 3) 5) ((2 1 3) (1 3 2) 5) ((2 1 3) (3 2 1) 4)
      ((2 3 1) (2 3 1) 4) ((2 3 1) (2 1 3) 5) ((2 3 1) (1 3 2) 4)
      ((2 3 1) (3 2 1) 5) ((2 3 1) (3 1 2) 5) ((2 3 1) (1 2 3) 4)
      ((3 1 2) (3 1 2) 4) ((3 1 2) (3 2 1) 5) ((3 1 2) (2 1 3) 4)
      ((3 1 2) (1 3 2) 5) ((3 1 2) (1 2 3) 5) ((3 1 2) (2 3 1) 4)))
#2A((4/27 5/27 5/27 4/27 5/27 4/27)
    (5/27 4/27 5/27 4/27 5/27 4/27)
    (5/27 4/27 4/27 5/27 4/27 5/27)
    (5/27 4/27 5/27 4/27 4/27 5/27)
    (4/27 5/27 4/27 5/27 4/27 5/27)
    (4/27 5/27 4/27 5/27 5/27 4/27))
>> (map #'float (linearlize *))
(0.14814815 0.18518518 0.18518518 0.14814815 0.18518518 0.14814815 0.18518518
 0.14814815 0.18518518 0.14814815 0.18518518 0.14814815 0.18518518 0.14814815
 0.14814815 0.18518518 0.14814815 0.18518518 0.18518518 0.14814815 0.18518518
 0.14814815 0.14814815 0.18518518 0.14814815 0.18518518 0.14814815 0.18518518
 0.14814815 0.18518518 0.14814815 0.18518518 0.14814815 0.18518518 0.18518518
 0.14814815)
>> (make-array (list 6 6) :displaced-to *)
; Evaluation aborted on #<TYPE-ERROR expected-type: (OR ARRAY NULL)
             datum:
             (0.14814815 0.18518518 0.18518518 0.14814815 0.18518518 0.14814815 0.18518518 ..)>.
>> (apply #'vector *)
#(0.14814815 0.18518518 0.18518518 0.14814815 0.18518518 0.14814815 0.18518518
  0.14814815 0.18518518 0.14814815 0.18518518 0.14814815 0.18518518 0.14814815
  0.14814815 0.18518518 0.14814815 0.18518518 0.18518518 0.14814815 0.18518518
  0.14814815 0.14814815 0.18518518 0.14814815 0.18518518 0.14814815 0.18518518
  0.14814815 0.18518518 0.14814815 0.18518518 0.14814815 0.18518518 0.18518518
  0.14814815)
>> (make-array (list 6 6) :displaced-to *)
#2A((0.14814815 0.18518518 0.18518518 0.14814815 0.18518518 0.14814815)
    (0.18518518 0.14814815 0.18518518 0.14814815 0.18518518 0.14814815)
    (0.18518518 0.14814815 0.14814815 0.18518518 0.14814815 0.18518518)
    (0.18518518 0.14814815 0.18518518 0.14814815 0.14814815 0.18518518)
    (0.14814815 0.18518518 0.14814815 0.18518518 0.14814815 0.18518518)
    (0.14814815 0.18518518 0.14814815 0.18518518 0.18518518 0.14814815))
>> (loop for i from 1 to 10 collect (mexpt ** i))
; Evaluation aborted on #<SIMPLE-ERROR "Vector axis is not zero: ~S" {1006398683}>.
>> (loop for i from 1 to 10 collect (mexpt * i))
(#2A((0.14814815 0.18518518 0.18518518 0.14814815 0.18518518 0.14814815)
     (0.18518518 0.14814815 0.18518518 0.14814815 0.18518518 0.14814815)
     (0.18518518 0.14814815 0.14814815 0.18518518 0.14814815 0.18518518)
     (0.18518518 0.14814815 0.18518518 0.14814815 0.14814815 0.18518518)
     (0.14814815 0.18518518 0.14814815 0.18518518 0.14814815 0.18518518)
     (0.14814815 0.18518518 0.14814815 0.18518518 0.18518518 0.14814815))
 #2A((0.16735253 0.16598079 0.16598079 0.16735253 0.16598079 0.16735253)
     (0.16598079 0.16735253 0.16598079 0.16735253 0.16598079 0.16735253)
     (0.16598079 0.16735253 0.16735253 0.16598079 0.16735253 0.16598079)
     (0.16598079 0.16735253 0.16598079 0.16735253 0.16735253 0.16598079)
     (0.16735253 0.16598079 0.16735253 0.16598079 0.16735253 0.16598079)
     (0.16735253 0.16598079 0.16735253 0.16598079 0.16598079 0.16735253))
 #2A((0.16664125 0.16669206 0.16669206 0.16664125 0.16669206 0.16664125)
     (0.16669206 0.16664125 0.16669206 0.16664125 0.16669206 0.16664125)
     (0.16669206 0.16664125 0.16664127 0.16669205 0.16664125 0.16669206)
     (0.16669206 0.16664125 0.16669206 0.16664125 0.16664125 0.16669206)
     (0.16664125 0.16669205 0.16664127 0.16669205 0.16664125 0.16669206)
     (0.16664125 0.16669205 0.16664127 0.16669205 0.16669206 0.16664125))
 #2A((0.1666676 0.1666657 0.16666573 0.16666758 0.1666657 0.16666758)
     (0.1666657 0.16666758 0.16666573 0.16666758 0.1666657 0.16666758)
     (0.1666657 0.16666758 0.16666761 0.1666657 0.1666676 0.16666572)
     (0.1666657 0.16666758 0.16666573 0.16666758 0.1666676 0.1666657)
     (0.16666758 0.1666657 0.16666761 0.1666657 0.1666676 0.16666572)
     (0.16666758 0.1666657 0.16666761 0.1666657 0.1666657 0.1666676))
 #2A((0.16666661 0.16666667 0.1666667 0.1666666 0.16666667 0.16666661)
     (0.16666667 0.1666666 0.1666667 0.1666666 0.16666667 0.16666661)
     (0.16666669 0.1666666 0.16666663 0.16666667 0.16666661 0.16666669)
     (0.16666669 0.1666666 0.1666667 0.1666666 0.1666666 0.16666669)
     (0.1666666 0.16666667 0.16666663 0.16666667 0.16666661 0.16666669)
     (0.1666666 0.16666667 0.16666663 0.16666667 0.16666669 0.1666666))
 #2A((0.16666663 0.16666663 0.16666667 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666667 0.16666663 0.16666664 0.16666664)
     (0.16666664 0.16666663 0.16666667 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666667 0.16666663 0.16666664 0.16666664)
     (0.16666664 0.16666663 0.16666667 0.16666663 0.16666664 0.16666664)
     (0.16666664 0.16666663 0.16666667 0.16666663 0.16666664 0.16666664))
 #2A((0.16666663 0.16666663 0.16666667 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666667 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666667 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664))
 #2A((0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664))
 #2A((0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664))
 #2A((0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)))
>> (/ 5 27)
5/27
>> (float *)
0.18518518
>> (/ 4 27)
4/27
>> (float *)
0.14814815
>> .16664125
0.16664125
>> .16669
0.16669
>> (* * 10000)
1666.9
>> ***
0.16664125
>> (* * 10000)
1666.4125
>> '(#2A((0.14814815 0.18518518 0.18518518 0.14814815 0.18518518 0.14814815)
     (0.18518518 0.14814815 0.18518518 0.14814815 0.18518518 0.14814815)
     (0.18518518 0.14814815 0.14814815 0.18518518 0.14814815 0.18518518)
     (0.18518518 0.14814815 0.18518518 0.14814815 0.14814815 0.18518518)
     (0.14814815 0.18518518 0.14814815 0.18518518 0.14814815 0.18518518)
     (0.14814815 0.18518518 0.14814815 0.18518518 0.18518518 0.14814815))
 #2A((0.16735253 0.16598079 0.16598079 0.16735253 0.16598079 0.16735253)
     (0.16598079 0.16735253 0.16598079 0.16735253 0.16598079 0.16735253)
     (0.16598079 0.16735253 0.16735253 0.16598079 0.16735253 0.16598079)
     (0.16598079 0.16735253 0.16598079 0.16735253 0.16735253 0.16598079)
     (0.16735253 0.16598079 0.16735253 0.16598079 0.16735253 0.16598079)
     (0.16735253 0.16598079 0.16735253 0.16598079 0.16598079 0.16735253))
 #2A((0.16664125 0.16669206 0.16669206 0.16664125 0.16669206 0.16664125)
     (0.16669206 0.16664125 0.16669206 0.16664125 0.16669206 0.16664125)
     (0.16669206 0.16664125 0.16664127 0.16669205 0.16664125 0.16669206)
     (0.16669206 0.16664125 0.16669206 0.16664125 0.16664125 0.16669206)
     (0.16664125 0.16669205 0.16664127 0.16669205 0.16664125 0.16669206)
     (0.16664125 0.16669205 0.16664127 0.16669205 0.16669206 0.16664125))
 #2A((0.1666676 0.1666657 0.16666573 0.16666758 0.1666657 0.16666758)
     (0.1666657 0.16666758 0.16666573 0.16666758 0.1666657 0.16666758)
     (0.1666657 0.16666758 0.16666761 0.1666657 0.1666676 0.16666572)
     (0.1666657 0.16666758 0.16666573 0.16666758 0.1666676 0.1666657)
     (0.16666758 0.1666657 0.16666761 0.1666657 0.1666676 0.16666572)
     (0.16666758 0.1666657 0.16666761 0.1666657 0.1666657 0.1666676))
 #2A((0.16666661 0.16666667 0.1666667 0.1666666 0.16666667 0.16666661)
     (0.16666667 0.1666666 0.1666667 0.1666666 0.16666667 0.16666661)
     (0.16666669 0.1666666 0.16666663 0.16666667 0.16666661 0.16666669)
     (0.16666669 0.1666666 0.1666667 0.1666666 0.1666666 0.16666669)
     (0.1666666 0.16666667 0.16666663 0.16666667 0.16666661 0.16666669)
     (0.1666666 0.16666667 0.16666663 0.16666667 0.16666669 0.1666666))
 #2A((0.16666663 0.16666663 0.16666667 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666667 0.16666663 0.16666664 0.16666664)
     (0.16666664 0.16666663 0.16666667 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666667 0.16666663 0.16666664 0.16666664)
     (0.16666664 0.16666663 0.16666667 0.16666663 0.16666664 0.16666664)
     (0.16666664 0.16666663 0.16666667 0.16666663 0.16666664 0.16666664))
 #2A((0.16666663 0.16666663 0.16666667 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666667 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666667 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664))
 #2A((0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664))
 #2A((0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664))
 #2A((0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)))
(#2A((0.14814815 0.18518518 0.18518518 0.14814815 0.18518518 0.14814815)
     (0.18518518 0.14814815 0.18518518 0.14814815 0.18518518 0.14814815)
     (0.18518518 0.14814815 0.14814815 0.18518518 0.14814815 0.18518518)
     (0.18518518 0.14814815 0.18518518 0.14814815 0.14814815 0.18518518)
     (0.14814815 0.18518518 0.14814815 0.18518518 0.14814815 0.18518518)
     (0.14814815 0.18518518 0.14814815 0.18518518 0.18518518 0.14814815))
 #2A((0.16735253 0.16598079 0.16598079 0.16735253 0.16598079 0.16735253)
     (0.16598079 0.16735253 0.16598079 0.16735253 0.16598079 0.16735253)
     (0.16598079 0.16735253 0.16735253 0.16598079 0.16735253 0.16598079)
     (0.16598079 0.16735253 0.16598079 0.16735253 0.16735253 0.16598079)
     (0.16735253 0.16598079 0.16735253 0.16598079 0.16735253 0.16598079)
     (0.16735253 0.16598079 0.16735253 0.16598079 0.16598079 0.16735253))
 #2A((0.16664125 0.16669206 0.16669206 0.16664125 0.16669206 0.16664125)
     (0.16669206 0.16664125 0.16669206 0.16664125 0.16669206 0.16664125)
     (0.16669206 0.16664125 0.16664127 0.16669205 0.16664125 0.16669206)
     (0.16669206 0.16664125 0.16669206 0.16664125 0.16664125 0.16669206)
     (0.16664125 0.16669205 0.16664127 0.16669205 0.16664125 0.16669206)
     (0.16664125 0.16669205 0.16664127 0.16669205 0.16669206 0.16664125))
 #2A((0.1666676 0.1666657 0.16666573 0.16666758 0.1666657 0.16666758)
     (0.1666657 0.16666758 0.16666573 0.16666758 0.1666657 0.16666758)
     (0.1666657 0.16666758 0.16666761 0.1666657 0.1666676 0.16666572)
     (0.1666657 0.16666758 0.16666573 0.16666758 0.1666676 0.1666657)
     (0.16666758 0.1666657 0.16666761 0.1666657 0.1666676 0.16666572)
     (0.16666758 0.1666657 0.16666761 0.1666657 0.1666657 0.1666676))
 #2A((0.16666661 0.16666667 0.1666667 0.1666666 0.16666667 0.16666661)
     (0.16666667 0.1666666 0.1666667 0.1666666 0.16666667 0.16666661)
     (0.16666669 0.1666666 0.16666663 0.16666667 0.16666661 0.16666669)
     (0.16666669 0.1666666 0.1666667 0.1666666 0.1666666 0.16666669)
     (0.1666666 0.16666667 0.16666663 0.16666667 0.16666661 0.16666669)
     (0.1666666 0.16666667 0.16666663 0.16666667 0.16666669 0.1666666))
 #2A((0.16666663 0.16666663 0.16666667 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666667 0.16666663 0.16666664 0.16666664)
     (0.16666664 0.16666663 0.16666667 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666667 0.16666663 0.16666664 0.16666664)
     (0.16666664 0.16666663 0.16666667 0.16666663 0.16666664 0.16666664)
     (0.16666664 0.16666663 0.16666667 0.16666663 0.16666664 0.16666664))
 #2A((0.16666663 0.16666663 0.16666667 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666667 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666667 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664))
 #2A((0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664))
 #2A((0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664))
 #2A((0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
     (0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)))
>> (def array+ (a b)
     (make-array (array-dimensions a) 
                 :displaced-to (mapv #'+ (linearlize a) (linearlize b))))
ARRAY+
>> (reduce #'array+ **)
#2A((1.6488093 1.6845236 1.6845236 1.6488092 1.6845236 1.6488093)
    (1.6845236 1.6488092 1.6845236 1.6488092 1.6845236 1.6488093)
    (1.6845236 1.6488092 1.6488094 1.6845236 1.6488093 1.6845236)
    (1.6845236 1.6488092 1.6845236 1.6488092 1.6488092 1.6845236)
    (1.6488092 1.6845236 1.6488094 1.6845236 1.6488093 1.6845236)
    (1.6488092 1.6845236 1.6488094 1.6845236 1.6845236 1.6488092))
>>