% const - arrow that always produces a constant value
%
% const :: A -> arrow({},{A},empty).
function a=const(x), a=arr(@()x);
