sub maxprefix
{
  my $p = shift;
  grep {chop($p) until (/^$p/)} @_;
  $p;
}