clear all;
close all;
clc

A = [-2 -1 1 3; 
      1 3 -1 -1; 
      1 1 -3 1; 
      -1 2 1 -1]
  
[L, R] = lr(A)
%A = lr(A)
