.de sh \" *** section heading
.if (\\n(si>0)&(\\n(si<1n) \
.@d "\\$1" +1 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8
. $p "\\*(|n" "\\*($n" \\n($0
. $0 "\\*(|n" "\\*($n" \\n($0
.nr $p 0 1 \" reset .np count
.de @d \" --- change section depth
. if (\\n(.$>=3) .if !"\\$3"-" \
. if (\\n(.$>=4) .if !"\\$4"-" \
. if (\\n(.$>=5) .if !"\\$5"-" \
. if (\\n(.$>=6) .if !"\\$6"-" \
. if (\\n(.$>=7) .if !"\\$7"-" \
. if (\\n(.$>=8) .if !"\\$8"-" \
.de sx \" *** heading up, no increment (2.1.1 -> 2.1)
.nr $p 0 1 \" reset .np count
.de uh \" *** unnumbered section heading
. nr sf 8 \" section font -- Times Bold
. nr sp 10 \" section title pointsize
. nr ss 12p \" section prespacing
. nr si 0 \" section indent