1 a-node [ eparent a-node $eparent := [], !parent $eparent ]
a-node [ eparent a-node $eparent := [], !parent $eparent ]