out aa8;
%off nat;
on rounded;
XX:=MAT((X(1)),(X(2)));

S:=mat((a,b),(c,d));
S*XX;
S*XX - XX;

bye;
end;