function [X,L,G,rr]=ReshUrRikk; 
a=[0 1;-1 1];
b=[0 0;0 1];
q=[1 0;0 1];
r=[1 0;0 1];
[X,L,G,rr]=dare(a,b,q,r)
