function y=id(x)
% id - identity function
%
% id :: A->A.
y=x;
