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