module test

import StdString
import Text.Encodings.Base64
import Gast
import Gast.CommandLine

pBase :: String -> Bool
pBase s = s == base64Decode (base64Encode s)

pURL :: String -> Bool
pURL s = s == base64URLDecode (base64URLEncode s)

Start w = exposeProperties [] [] [pBase, pURL] w