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