perl -e 'for my $d(0..127){
            for (0..3){
               next unless ($d & 3<<($_+$_))==0;
               $count++; 
            }
          };
           print qq|\nCount=$count\n|'