+ s = p s
+ p = ""
+ while (match(s, note "\\)")) {
+ if (note==1 && s !~ /\.1\)/)
+ break
+ p = p substr(s,1,RSTART-1)
+ p = p "<sup><a href=\"#note" note "\"><b>" note ")</b></a></sup>"
+ note++
+ s = substr(s,RSTART+RLENGTH)
+ }
+ s = p s
+ if (s ~ /^ *[1-9][0-9]*\) /) {
+ sub(/\)/,"",s)
+ sub(/[0-9]+/,"<sup><a name=\"note&\" href=\"#note&\"><b>&)</b></a></sup>",s)
+ }
+ print s