Simpler counter
require cl
small fix