#!/usr/bin/perl -w

print"cp sinon.c a.c\n";
for($i=1;$i<21;$i++)
{
   for($j=0;$j<2;$j++)
   {
      print"gcc -O",$j*2," a.c -o a&&./a|tee a.c\n"if!($i%(2+$j));
   }
   print"sleep 2\n";
}