MAIN:

   /* SCL statements        */

   %ctf(temp1)

   /* more SCL statements   */

   %ctf(temp2)

   /* more SCL statements   */

   %ctf(temp3)

   /* more SCL statements   */

return;