function ov442cp3(A)
    [m,n] = size(A);
    arr = cell(1, m-1);

    R = zeros(m,n);
    x = A(:,1);
    w = zeros(length(x), 1);
    w(1) = norm(x);
    v = w - x;
    P = (v*transpose(v))/(transpose(v)*v);
    I = eye(size(P));
    Z = zeros(size(P));
    H = I - 2*P;
    arr{1} = H;
    R = R + H*A;

    for j=2:1:n
        x = R(j:m,j);
        w = zeros(length(x), 1);
        w(1) = norm(x);
        v = w - x;
        P = (v*transpose(v))/(transpose(v)*v);
        Z = zeros(size(H));
        Z(j:m,j:m) = P(1:size(P),1:size(P));
        H = I - (2*Z);

        if j~=n
            arr{j} = H;
        end

        R = cell2mat(arr(1))*A;

        for i=2:1:j
            if(i~=n)
                R = cell2mat(arr(i))*R;
            end
        end

    end

    Q = cell2mat(arr(1));

    for i=2:1:length(arr)
        Q = Q * cell2mat(arr(i));
    end

    Q
    R

end