sub chain{(*f,*_)=@_;@_=&$_ for@f;@_}