Select Code to Download

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

sub chain{my($f,$a)=@_;$a=[&$_(@$a)]for@$f;@$a}