sub by_priority {
  for (qw(Organization Service FAQ)){
    $a=~/^$_/?return -1:
    $b=~/^$_/?return 1:1
  }
  return $a cmp $b;
}