contract ParameterisedEvent =

  datatype event('a) = Event(int)