abstract System = {
  cat Reply ;
  fun Bye : Reply ;
}