sub query2 {
   my ($str,@argv) = @_;
   my $answer;

   while (1) {
      print "$str ", $argv[0] ? "[$argv[0]]: " : ": ";
      chomp($answer = <STDIN>);
      return $answer if !@argv or grep lc($answer) eq lc($_), @argv;
      return $argv[0] unless $answer;
   }
}