my $a;
$a = $a >> 1;
$a = $a >> $a
