% specfilt
function Y=specfilt(X,S,varargin)
	args=varargin;
	Y=zipwith(@specfiltf,S,X);

	function Y=specfiltf(x,s), 
		Y=unbuffer(ipowspec(s,phasespec(x)),args{:}); end
	end
end
