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). };