.nr qq 0 \" quote nesting level
.
.de qr \" update quotation mark strings
.  ie \\n(qq%2 \{\
.    ds qo \(oq\"
.    ds qc \(cq\"
.  \}
.  el \{\
.    ds qo \(lq\"
.    ds qc \(rq\"
.  \}
..
.
.de q( \" open quotation
.  nr qq +1
.  qr
\\*(qo\\$1\c
..
.
.de q) \" close quotation
.  ds qx \" empty; output suffix
.  \" The `.br` register is a groff extension.
.  if \\n[.br] .as qi \c\"
\\*(qc\\$1\\*(qx
.  rm qx
.  nr qq -1
.  qr
..
.
.q(
Maybe my costume's not
.q(
the norm\c
'q) .
I'm not
.q(
camera-friendly\c
'q) .
I
.q(
frighten children\c
'q) ;
I'm
.q(
not hygienic\c
'q) ;
I don't
.q(
wipe properly\c
'q) .
(in memory of Bennett Brauer (Chris Farley))
.sp
.
.sp
.
.q(
She said,
.q(
I think we're getting a little carried away
with the
.q(
nesting\c
'q) \c
'q) .
.
But I told her it's all the rage among Lisp
.q(
programmers\c
'q) .\c
.q)