#! varwish -f
proc setf {f var val} {
	upvar #$f $var $var
	set $var $val
}


varframe create #foo_a
varframe create #foo_b
varframe create #foo_c

setf foo_a a 10
setf foo_b a 20
setf foo_b b 20
setf foo_c c 40

echo "variables in foo_a: [varframe vars #foo_a]"
echo "variables in foo_b: [varframe vars #foo_b]"
echo "variables in foo_c: [varframe vars #foo_c]"

echo "varframes: [varframe list]"
echo "containing a: [varframe find a]"
echo "containing b: [varframe find b]"
echo "containing c: [varframe find c]"

exit
