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