p7class Vec<TYPE> { (TYPE*)v }

p7proc (Vec<TYPE>)vnew<TYPE> (int)n {
    new (Vec<TYPE>)z
    set z(v) [new (TYPE*) $n]
    set z
}

p7proc (int)vlen { (Vec<TYPE>)this } {
	len $v
}
p7proc (tcl)vget { (Vec<TYPE>)this (int)n } {
	set v(n)
}
p7proc (void)vset { (Vec<TYPE>)this (int)n (TYPE)x } {
	set v(n) $x
}