sub sr_i32 {
   my ($p, $q) = @_;
   return int( $p / (2<<$q) );
}