keys :: [B.ByteString] -> [(Int, [NS.Nibble])]
keys hashes = keys' (map toNibbleList hashes) 0
keys :: [B.ByteString] -> [(Int, [NS.Nibble])]
keys hashes = keys' (map toNibbleList hashes) 0
keys hashes = keys' (map toNibbleList hashes) 0