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