print substr( $record, 0, 20) =~ /^\d+ *$/ ? 'OK' : 'NOK';