.\"
.\" ----------------------------------------------------------------
.\" Return argument with hyphenation points in string HX.
.de HY
.ds HX
.nr HY \\n[.warn]
.warn 0
.ev HY
.ll 0
.HY1 \\$@
.chop HX
.chop HX
.chop HX
.ev
.warn \\n(HY
..
.\" ----------------------------------------------------------------
.\" Split into words.
.de HY1
.nh
.di HX1
.dt 1v HY1a
\\$*
.di
..
.\" ----------------------------------------------------------------
.\" Word helper.
.de HY1a
.di
.asciify HX1
.chop HX1
.HY2
.chop HX
.as HX " ¬ \"
.nh
.di HX1
.dt 1v HY1a
..
.\" ----------------------------------------------------------------
.\" Hyphenate word.
.de HY2
.hy
.di HX2
.HX1
\&
.di
.HY3
..
.\" ----------------------------------------------------------------
.\" Process syllables.
.de HY3
.di HX3
.dt 1v HY3a
.HX2
.di
..
.\" ----------------------------------------------------------------
.\" Syllable helper.
.de HY3a
.di
.asciify HX3
.chop HX3
.chop HX3
.as HX \\*[HX3]·
.di HX3
.dt 1v HY3a
..
.\" ----------------------------------------------------------------
.char \(sc \v'.55n'\(de\v'-.55n'
.tr ¬\(sc
.sp 3
.ad l
.ds word "Collect power under the guise of economical improvement
The hyphenation points of ``\*[word]'' are:
.br
.HY \*[word]
``\m[red]\*[HX]\m[]''.
.sp
\(emThe End\(em