use strict;
use warnings;

my $bad = 0;
while (<>) {
   if (!/^[actg]+$/i) {
      ++$bad;
      last;
   }
}

print $bad ? "BAD\n" : "OK\n";