samer@42: % anull - arrow to absorb given number of inputs
samer@0: %
samer@27: % asink :: N:natural -> arrow(_@typelist(N),{},empty).
samer@0: function a=asink(nin)
samer@0: 	if nargin<1, nin=1; end
samer@0: 	a=arr(@nop,'nargin',nin,'nargout',0);
samer@0: end