function o=alevinson(N)
	if nargin>0, fn=@levN; else fn=@lev; end
		
	o=arr(fn);
	function [a,e]=levN(r), [a,e]=levinson(r,N); end
	function [a,e]=lev(r), [a,e]=levinson(r); end
end
