sub bypre {
  substr($b,0,index($b,"+")) <=> substr($a,0,index($a,"+"));
}