truncate G256 = L.concat . map B.encode . V.toList . V.unsafeSlice 4 4
truncate G256 = L.concat . map B.encode . V.toList . V.unsafeSlice 4 4
truncate G256 = L.concat . map B.encode . V.toList . V.unsafeSlice 4 4