| .nr _0 \n(c. |
| .\" @(#)footnote.me 2.4 9/23/80 |
| .\" This version has had comments stripped; an unstripped version is available. |
| .de (f |
| .ec |
| .if "\\n(.z"|f" .tm Line \\n(c. -- Illegal footnote nesting |
| .ie "\\n(.z"" \ |
| \{\ |
| . nr _D \\n(dn |
| . nr _0 1v+\\n(nlu |
| . ev 2 |
| . da |f |
| . in 0 |
| . xl \\n($lu-\\n(fuu |
| . @F \\n(ff |
| . sz \\n(fpu |
| . vs \\n(.su*\\n($Ru |
| . if !\\n(?f \ |
| \{\ |
| . nr _b +2u*\n(.Vu |
| . $s |
| . \} |
| . br |
| . if \\n(.p-\\n(_b-\\n(_0-\\n(.h-1v-\\n(fs<0 \ |
| \{\ |
| . da\" |
| . bc |
| . if !\\n(?f \ |
| . rm |f |
| . da |f |
| . in 0 |
| . xl \\n($lu-\\n(fuu |
| . @F \\n(ff |
| . sz \\n(fpu |
| . vs \\n(.su*\\n($Ru |
| . if !\\n(?f \ |
| . $s |
| . br |
| . \} |
| . rr _0 |
| . sp \\n(fsu |
| . nr ?f 1 |
| . fi |
| . if !"\\$1"_" \ |
| . ti \\n(fiu |
| .\} |
| .el \ |
| \{\ |
| . ev 2 |
| \!.(f \\$1 |
| .\} |
| .. |
| .de )f |
| .ie "\\n(.z"|f" \ |
| \{\ |
| . if \\n* \ |
| . nr $f +1 |
| . ds * \\*[\\n($f\\*]\k* |
| . rr * |
| . in 0 |
| . da |
| . ev |
| . if \\n(_w<\\n(dl \ |
| . nr _w \\n(dl |
| . nr _b +\\n(dn |
| . ch @f -\\n(_bu |
| . if \\n(.p-\\n(_b<=\\n(nl \ |
| . ch @f \\n(nlu+\n(.Vu |
| . nr dn _D |
| . rr _D |
| .\} |
| .el \ |
| \{\ |
| . br |
| \!.)f |
| . ev |
| .\} |
| .. |
| .if \n(ff<=0 \ |
| . nr ff 1 |
| .if \n(fp<=0 \ |
| . nr fp 8 |
| .nr c. \n(_0 |
