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