function f=constfn(a)
% constfn - returns a function which always returns the same thing.
%
% constfn :: A -> (_ -> A).
	f=@const;
	function x=const(varargin),  x=a; end
end
			
