sub check_THING {
  my $id = shift;
  return 0 unless defined $THING[$id];
  defined $THING[$id]{check}
    ? return 1
    : return 0;
}