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