sub SRshift { 
    $_[0] < 0 
        ? -( -$_[0] >> $_[1] ) 
        :     $_[0] >> $_[1] 
}