ctr


  object ctr {
  var n=0.
  
  ctr():- true.
  
  inc():- n := n + 1.
  value(N):- N = n, tell(N).
  
  tell(N):- call hush(clips,val(N)).
  
  run(X) :-
          C = new(ctr()),
          C.inc(),
          C.value(X).
  };

slide: ctr