perl -le'$m=1;$s+=$_*($m^=2)for(split(//,$ARGV[0]));
print(($s%10)?"BAD":"OK");'