How to perform lifting haar wavelet?

Is it possible for me to make a lifting haar from this code? This is code for haar wavelet decomposition.

function coeffs = HaarDec(I,nScales)         
    coeffs = zeros([size(I),2*nScales]);    
    for k = 1:nScales
        Haar_fil = 2^(-k)*ones(2^k,2^k);
        Haar_fil(1:(end/2),:) = -Haar_fil(1:(end/2),:);
        coeffs(:,:,k) = conv2(X,Haar_fil,'same');
        coeffs(:,:,k + nScales) = conv2(I,Haar_fil','same');
    end   
end