data LongOption  = LongOption String OptionArgument
data ShortOption = ShortOption Char (Array Char) OptionArgument
-- Won't work:
data Option      = LongOption | ShortOption
-- Ugly
data Option      = OptionLongOption LongOption | OptionShortOption ShortOption
-- Compromise
data Option      = Either LongOption ShortOption