#!/usr/bin/perl
 while (<>){
         if (/^[SCQD]/){
         ($qnum,$v,$qtext) = split("\t");
         chop ($qnum);
         print "L $qnum\nttl$qnum. $qtext\nn10TOTAL BASE\n";
         }
         else {
         ($stext,$qspec,$x) = split("[\t]");
         chomp ($qspec);
         unless (/^$/){ print "n01$stext;c=c{$qnum}'$qspec'\n"}
         }
 }