sub calc_tosprecedence{
  use integer;
  return ( $_[0] & 0xff ) >> 5;
}