samer@0: % asink - Do nothing absorbing arrow
samer@0: %
samer@0: % asink :: N:natural -> arrow(_:arglist(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