-- |
-- Base64 decoding.
--
-- >>> decode "Zm9vIGJhcg=="
-- "foo bar"
decode :: String -> String
decode = map (chr . fromIntegral)
       . decode'
       . map ((base128array !) . fromIntegral . ord)
decode :: String -> String
decode = map (chr . fromIntegral)
       . decode'
       . map ((base128array !) . fromIntegral . ord)
decode = map (chr . fromIntegral)
       . decode'
       . map ((base128array !) . fromIntegral . ord)