sub in {
  my($inQuestion)= shift;
  foreach (@_) {
    return 1 if $_ eq $inQuestion;
  }
  return false;
}