Data.Choice

data Choice a b

choice

this

that

these

those

eitherToChoice

mergeChoice