Module

$ wo 'Module[{count}, count=0; (IncCount[] := ++count); (DecCount[] := --count)]'

$ wo 'count'

$ wo 'IncCount[]'
1

$ wo 'IncCount[]'
2

$ wo 'DecCount[]'
1

$ wo 'count'