newtype ArbitrarilyLabeled x = ArbitrarilyLabeled x forgetLabel :: ArbitrarilyLabeled x -> x forgetLabel (ArbitrarilyLabeled x) = x