     ] [ bitxor ] reduce-outputs ; inline
 
 : prepare-M-256 ( n seq -- )
-    { array } declare
+    { uint-array } declare
     {
         [ [ 16 - ] dip nth-unsafe ]
         [ [ 15 - ] dip nth-unsafe s0-256 ]

    }

CONSTANT: initial-H-512
    {
        0x6a09e667f3bcc908
        0xbb67ae8584caa73b
        0x3c6ef372fe94f82b

    [ pad-last-short-block ] [ sha-256>checksum ] bi ;

: sha1-W ( t seq -- )
    { uint-array } declare
    {
        [ [ 3 - ] dip nth-unsafe ]
        [ [ 8 - ] dip nth-unsafe bitxor ]
