/-    plan-acct
{inf/(unit {@txname @txloc}) del/(map knot ~) put/(map knot plan-acct)}