decodeEncode58 :: BS.ByteString -> Bool
decodeEncode58 bs = case decodeBase58 (encodeBase58 bs) of
    (Just r) -> r == bs
    Nothing  -> False
decodeEncode58 :: BS.ByteString -> Bool
decodeEncode58 bs = case decodeBase58 (encodeBase58 bs) of
    (Just r) -> r == bs
    Nothing  -> False
decodeEncode58 bs = case decodeBase58 (encodeBase58 bs) of
    (Just r) -> r == bs
    Nothing  -> False