1
2
3foo : () -> < Wrap < X | Y > >
4foo () = Wrap X