@main[]
$o1[^child1::create[]]
$o2[^child2::create[]]

$o1.a
$o2.a

$o1.a[1]
$o2.a[2]

$o1._a
$o2._a

$parent:_a[]

^process[$parent:CLASS]{@SET_a[v]
	^$_a[p0=^$v]
}

$o1[^child1::create[]]
$o2[^child2::create[]]

$o1.a[1]

$o1._a

$o2.a[2]

$o1._a
$o2._a



##########
@CLASS
parent

@create[]

@GET_a[]
parent


@SET_a[v]
$_a[0=$v]



##########
@CLASS
child1

@BASE
parent

@GET_a[]
child1




##########
@CLASS
child2

@BASE
parent

@GET_a[]
child2


@SET_a[v]
$_a[2=$v]