🚀 go-pugleaf

[Sorry 'bout all the crossposting, but there's no rec.nroff.abuse yet...]

The ;login: journal graciously printed my entry to the "Most Egregious
Misuse of Unix Utilities" contest.  Unfortunately, the program suffered
a certain amount of bitrot during the publishing process, and several folks
have asked for the correct version.  Here's the original (per)version,
for your viewing pleasure and/or nausea:

    Task: modulus operator program

    Implementation: use line wrapping and diversion in nroff

    #!/bin/sh
    nroff <<EOF | wc -w
    'di xx
    'll $2
    'll +$2
    `echo "10^$1" | bc | tr -d 1 | sed 's/0/0 /g'` \&
    'di
    EOF

(You invoke it with two numeric arguments.  For example, if you say
"modulus 23 10", it prints out 3.)

Larry Wall
lwall@netlabs.com