Blob
1 .nr _0 \n(c.2 .\" @(#)sh.me 2.1 8/18/803 .\" This version has had comments stripped; an unstripped version is available.4 .de sh5 .if (\\n(si>0)&(\\n(si<1n) \6 . nr si \\n(sin7 .ce 08 .@d "\\$1" +1 \\$3 \\$4 \\$5 \\$6 \\$7 \\$89 .if !"\\$2"_" \10 \{\11 . ds |x \&\\$212 . $p "\\*(|x" "\\*($n" \\n($013 . $0 "\\*(|x" "\\*($n" \\n($014 . rm |x15 .\}16 .nr $p 0 117 ..18 .de @d19 .if !""\\$1" \20 . nr $0 \\$121 .if \\n($0&(\\n(.$>1) \22 . nr $\\n($0 \\$223 .ds $n \&\"24 .ie \\n($0>=1 \25 \{\26 . if \\n($1=0 \27 . nr $1 128 . if (\\n(.$>=3) .if !"\\$3"-" \29 . nr $1 \\$330 . as $n \\n($131 .\}32 .el \33 . nr $1 034 .ie \\n($0>=2 \35 \{\36 . if \\n($2=0 \37 . nr $2 138 . if (\\n(.$>=4) .if !"\\$4"-" \39 . nr $2 \\$440 . as $n .\\n($241 .\}42 .el \43 . nr $2 044 .ie \\n($0>=3 \45 \{\46 . if \\n($3=0 \47 . nr $3 148 . if (\\n(.$>=5) .if !"\\$5"-" \49 . nr $3 \\$550 . as $n .\\n($351 .\}52 .el \53 . nr $3 054 .ie \\n($0>=4 \55 \{\56 . if \\n($4=0 \57 . nr $4 158 . if (\\n(.$>=6) .if !"\\$6"-" \59 . nr $4 \\$660 . as $n .\\n($461 .\}62 .el \63 . nr $4 064 .ie \\n($0>=5 \65 \{\66 . if \\n($5=0 \67 . nr $5 168 . if (\\n(.$>=7) .if !"\\$7"-" \69 . nr $5 \\$770 . as $n .\\n($571 .\}72 .el \73 . nr $5 074 .ie \\n($0>=6 \75 \{\76 . if \\n($6=0 \77 . nr $6 178 . if (\\n(.$>=8) .if !"\\$8"-" \79 . nr $6 \\$880 . as $n .\\n($681 .\}82 .el \83 . nr $6 084 ..85 .de sx86 .ce 087 .ul 088 .nr _0 \\n($0-189 .if \\n(.$ .nr _0 +190 .if \\n(.$ .nr _0 \\$191 .@d \\n(_092 .rr _093 .$p "" "" \\n($094 .nr $p 0 195 ..96 .de uh97 .$p "\\$1"98 .$0 "\\$1"99 ..100 .if \n(sf<=0 \101 . nr sf 8102 .if \n(sp<=0 \103 . nr sp 10104 .if \n(ss<=0 \105 . nr ss 12p106 .if \n(si<=0 \107 . nr si 0108 .nr c. \n(_0