#include <default.c>
#include <r.h>

function main()
{
Rstart("",2);
int i1,i2,iout;

i1 = 2;
i2 = 4;

Rset("rin1",i1);
Rset("rin2",i2);
Rx("rout <- rin1 + rin2");
Rx("print(rout)",3);

int iout1 = Ri("rout <- rin1 + rin2");
int iout2 = Ri("rout");
int i3 = Ri("rout");

Rset("rin3",i3);
printf("n i3 %.d", i3);

Rx("rout2 <- rin2*rin3");
Rx("print(rout2)",3);

int iout3 = Ri("rout2");
printf("n iout3 %.d", iout3);

//printf("n i1 %.d", i1);
//printf("n i2 %.d", i2);
//printf("n i3 %.d", i3);

//printf("n iout1 %.d", iout1);
//printf("n iout2 %.d", iout2);
//printf("n iout3 %.d", iout3);

printf("n Completed ");

}