Well mine isn't quite as in depth as NAs, but it seems to work on the data provided:
Code:
#!/usr/bin/awk -f
/^[1-9]/{
print "::",gensub(/^[^[:alpha:]]+| \[.*/,"","g")
print "::",gensub(/^[^[:alpha:]]+/,"","1")
print "{"
}
/^[a-z]/{
answer[++cnt] = substr($0,4)
if(/\*/){
correct[cnt]++
answer[cnt] = substr(answer[cnt],1,length(answer[cnt])-1)
}
next
}
cnt && (/\*/ || /^$/){
percentage = 0
if(/\*/)
correct[cnt]++
for(x = 1; x <= cnt; x++){
if(percentage)
if(correct[x])
printf "~%%%.2f%% %s\n",percentage,answer[x]
else
printf "~%%100%% %s\n",answer[x]
else
if(correct[x])
print "=",answer[x]
else
print "~",answer[x]
}
print "}"
cnt = 0
delete correct
delete answer
}