module SimpleNewtype where newtype A = B Int