contract ParameterisedState =

  type state('a) = list('a)