function res = headm(l)

r = [];
[m,n] = size(l);

if n == 0
    r = [];
else
    for k = 1:(n-1)
        r = [r,l(:,k+1)];
    end
end

res = r;


end
