while ( 1 )
          $a = !$a;