print NDAT "$one";
    } else {
        print NDAT $INPUT{"q$i-a$j"};
        print NDAT "\n";
    } # oops!
}