% noise - white noise generator
%
% noise :: 
%    D:natural ~'maximum duration to expect',
% -> (   nonneg  ~'sampling frequency', 
%        N:1..D  ~'duration' 
%     -> [[1,N]] ~'some noise') ~'function to generate white noise'.
function gen=noise(maxdur)
	buf=randn(1,maxdur);
	gen=@(fs,dur)buf(1:dur);
