> addvertex(T4,theory);

> addedge([RA,T4],theory);

> addedge([PS,T4],theory);

> addedge([T1,T4],theory);

> mylin([[I1,I2,RA,PS],[T1,T2,T3],[T4]],theory,[0,0],blue,3);