<XList0
CtrPos_:Tier
CtrPos[$tmpl,$exp] :: \
   Map[If[Proj[$exp,Cat[Tk[Len[$1]-1,$1],{0}]] = 'Ctr,\
	Tk[Len[$1]-1,$1],$1,$1],Pos[$tmpl,$exp]]
