# Pastebin 1Zdt3mhH
(eval-when (:compile-toplevel :load-toplevel :execute)
  ;;; Section 3.4:  Table T                                                                                                                                                 
  (defparameter *t* (make-array 64 :element-type '(unsigned-byte 32)
                                :initial-contents
                                (loop for i from 1 to 64
                                      collect
                                      (truncate
                                       (* 4294967296
                                          (abs (sin (float i 0.0d0)))))))))