# $Id$
# interp pool testing code.

web::initializer {

    web::command default {
	if { [info exists counter] } {
	    incr counter
	} else {
	    set counter 1
	}
	
	web::put "Counter is $counter"
    }

}

web::dispatch