% head - Head for cell arrays (first element)
%
% head :: cells(A) -> A.
function y=head(x), y=x{1}; % if iscell(x), y=x{1}; else y=x; end;
