es9


data Gangarone = GangaroneA | GangaroneB

data Sarrapone = Mksarrapone Int

data Purpurone = Mkpurpurone Gangarone Sarrapone

data Loffione = MkloffFromGang Gangarone | MkloffFromSarr Sarrapone | MkloffFromPurp [Purpurone]