Control.Effect.List
type EffectList
data List a
runList
choose
never
select
type EffectCut
data Cut a
cut
runCut