malisper · September 24, 2015 16:32
diff --git a/Shuffling Analysis b/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))
 >>