         seed
         seed prime1 w-
 
-        bytes byte-array? little-endian? and [
-            0 len dup 16 mod - 4 - 4 <range>
-            [ bytes <displaced-alien> uint deref ] map
-        ] [
-            bytes len 16 mod head-slice* 4 <groups> [ le> ] map
-        ] if
+        0 len/16 bytes uint native-mapper
 
         4 <groups> [
             first4


C: <xxhash> xxhash

M:: xxhash checksum-bytes ( bytes checksum -- value )
    checksum seed>> :> seed
    bytes length :> len

    len 16 >= [



    len w+

    len/16 len/4 bytes uint native-mapper
    [ prime3 w* w+ 17 bitroll-32 prime4 w* ] each

    bytes len/4 tail-slice
    [ prime5 w* w+ 11 bitroll-32 prime1 w* ] each

    [ -15 shift ] [ bitxor ] bi prime2 w*
    [ -13 shift ] [ bitxor ] bi prime3 w*
