% function counter(name) application.lock application(name) = application(name) + 1 counter = application(name) application.unlock end function %>