data Yes = Yes (Maybe [Char])