stretchHash :: B.ByteString -> B.ByteString
stretchHash = MD5.hash . pack . concatMap (`showHex` "") . toNibbleList
stretchHash :: B.ByteString -> B.ByteString
stretchHash = MD5.hash . pack . concatMap (`showHex` "") . toNibbleList
stretchHash = MD5.hash . pack . concatMap (`showHex` "") . toNibbleList