MAIN:

   /* SCL statements           */

   temp = temp1;
   %ctf
   temp1 = temp;

   /* more SCL statements      */

   temp = temp2;
   %ctf
   temp2 = temp;

   /* more SCL statements      */

   temp = temp3;
   %ctf
   temp3 = temp;

   /* more SCL statements      */

return;