Remove all files, redirect to GitHub.HEADmaster

1 files changed, 0 insertions, 1248 deletions

diff --git a/tests/examplefiles/tads3_example.t b/tests/examplefiles/tads3_example.t
deleted file mode 100644
index 41881c93..00000000
--- a/tests/examplefiles/tads3_example.t
+++ /dev/null
@@ -1,1248 +0,0 @@
-#charset "utf-8"
-
-#include <adv3.h>
-#include <en_us.h>
-
-extern function extern_function;
-extern method extern_method;
-extern function extern_function(a, b=a, c='<<a>>', d:, e:=1, f?, ...);
-extern method extern_method(a, b=a, c='<<a>>', d:, e:=1, f?, [g]);;
-extern class extern_class;
-extern object extern_object;
-intrinsic 't3vm' { };
-#ifndef PropDefAny
-intrinsic class Object 'root-object/030004' { };
-#endif
-object /**//**/ // /* \\
-#define Room Unthing
-    template [lst];
-
-/*
- *   Quotations from "Le Roman de la Rose" are transcribed from MS. Douce 195,
- *   owned by Bodleian Library, University of Oxford
- *   (http://image.ox.ac.uk/show?collection=bodleian&manuscript=msdouce195).
- */
-
-versionInfo: GameID
-    IFID = '17d8efc3-07da-4dde-a837-ff7c4e386a77'
-    name = 'Pygmentalion'
-    byline = 'by David Corbett'
-    htmlByline = 'by <a href="mailto:corbett.dav\100husky.neu.edu">David
-        Corbett</a>'
-    version = '1'
-    authorEmail = 'David Corbett\040<corbett.dav\x40husky.neu.edu>'
-    desc = 'You have fallen in love with a statue\x2e'
-    htmlDesc = 'You have fallen in love with a statue\x2E'
-;
-
-/*
- *   Pymalion fu ẽtailleꝛꝛes.
- *   Poᷣtrayãs en fus ⁊ en peꝛꝛeˢ
- *   En metaulx en os ⁊ en cyꝛes
- *   Et en touteˢ aultres matires.
- *   Quon peult a tel oeuure trouuer.
- *   Poᷣ ſon grant engin eſpꝛouuer.
- *   Car maiſtre en fu bien dire loz.
- *   Ainſi com poᷣ acquerre loz
- *   Se voult a poᷣtraire deduyꝛe
- *   Si fiſt vng ymage diuuyꝛe
- *   Et miſt au faire tel entente
- *   Quel fu ſi plaiſãt et ſi gente
- *   Quel ſembloit eſtre auſſi viue.
- *   Com la plus belle riens q̇ viue
- *      (MS. Douce 195, fol. 149r)
- */
-
-modify _init()
-{
-    ({: local r, r = randomize, r})();
-    replaced();
-}
-
-gameMain: GameMainDef
-    initialPlayerChar: Actor {
-        desc = "You look the same as usual, but you feel unusually
-            sentimental. "
-        location = entrance
-    }
-    showIntro
-    {
-        "The statue is undeniably a masterpiece: the most skillful carving you
-        have ever done, and the most beautiful woman you have ever seen.
-        Unfortunately, she is also an inanimate block, and now you can neither
-        work nor rest for unrequitable love.\b
-        Once again you stumble into your studio, hoping and praying to find
-        your statue brought to life.\b
-        <b><<versionInfo.name>></b>\r\n
-        <<versionInfo.byline>>\b";
-    }
-;
-
-enum token token, tokOp, token;
-
-modify cmdTokenizer
-    rules_ = static
-    [
-        ['whitespace', new RexPattern('%s+'), nil, &tokCvtSkip, nil],
-        ['punctuation', new RexPattern('[.,;:?!]'), tokPunct, nil, nil],
-        ['spelled number',
-         new RexPattern('<NoCase>(twenty|thirty|forty|fifty|sixty|'
-                        + 'seventy|eighty|ninety)-'
-                        + '(one|two|three|four|five|six|seven|eight|nine)'
-                        + '(?!<AlphaNum>)'),
-         tokWord, &tokCvtSpelledNumber, nil],
-        ['spelled operator', new RexPattern(
-            '<NoCase>(plus|positive|minus|negat(iv)?e|not|inverse(%s+of)?|'
-            + 'times|over|divided%s+by|mod(ulo)?|and|xor|or|[al]?sh[lr])'
-            + '(?!<AlphaNum>)'),
-         tokOp, &tokCvtSpelledOperator, nil],
-        ['operator', R'[-!~+*/%&^|]|<<|>>>?', tokOp, nil, nil],
-        ['word', new RexPattern('<Alpha|-|&><AlphaNum|-|&|squote>*'),
-         tokWord, nil, nil],
-        ['string ascii-quote', R"""<min>([`\'"])(.*)%1(?!<AlphaNum>)""",
-         tokString, nil, nil],
-        ['string back-quote', R"<min>`(.*)'(?!%w)", tokString, nil, nil],
-        ['string curly single-quote', new RexPattern('<min>\u2018(.*)\u2019'),
-         tokString, nil, nil],
-        ['string curly double-quote', new RexPattern('<min>\u201C(.*)\u201D'),
-         tokString, nil, nil],
-        ['string unterminated', R'''([`\'"\u2018\u201C](.*)''', tokString,
-         nil, nil],
-        ['integer', new RexPattern('[0-9]+'), tokInt, nil, nil]
-    ]
-    replace tokCvtSpelledOperator(txt, typ, toks)
-    {
-        toks.append([rexReplace(R'%s+', txt.toLower(), '\\'), typ, txt]);
-    }
-;
-
-/* Tokens */
-
-/*
- *   Puiˢ li reueſt en maĩteˢ guiſes.
- *   Robeˢ faicteˢ ꝑ grãˢ maiſtriſeˢ.
- *   De biaulx dꝛaps de ſoye ⁊ de laĩe.
- *   Deſcarlate de tiretaine
- *   De vert de pers ⁊ de bꝛunecte
- *   De couleᷣ freſche fine ⁊ necte
- *   Ou moult a riches paneˢ miſes.
- *   Herminees vaires et griſes
- *   Puis les li roſte puis reſſaye.
- *   Cõmant li ſiet robbe de ſaye
- *   Sendaulx meloguins galebꝛunˢ.
- *   Indes vermeilz iaunes ⁊ bꝛunˢ.
- *   [...]
- *   Aultre foiz luy repꝛẽd courage.
- *   De tout oſter ⁊ mectre guindeˢ.
- *   Iaunes vermeilles vers ⁊ indeˢ.
- *      (MS. Douce 195, fol. 150r)
- */
-
-class Token: Achievement
-{
-    points = 1;
-    desc = "<<before_>><<desc_>><<after_>>";
-    before = before = '', before_
-    after = (after = '', after_)
-}
-
-Token template inherited 'before_' 'after_' 'desc_';
-
-#define DefineToken(name, before, after) name##Token: Token before after #@name
-
-DefineToken(builtin, '<font color=g&#x72;een>', '</font>');
-DefineToken(comment, '<i><font color=#408080>', '</font></i>');
-DefineToken(decorator, '<font color=#aa22ff>', '</font>');
-DefineToken(error, '<U><FONT COLOR=RED>', '</FONT></U>');
-DefineToken(escape, '<b><font color=#bb6622>', '</font></b>');
-DefineToken(float, '<u><font color=gray>', '</font></u>');
-DefineToken(keyword, '<b><font face=TADS-Sans color=green>', '</font></b>');
-DefineToken(label, '<font color=#A0A000>', '</font>');
-DefineToken(long, '<i><font color=gray>', '</font></i>');
-DefineToken(name, '<u>', '</u>');
-DefineToken(operator, '<b><font color=\"#AA22F&#x46;\">', '</font></b>');
-DefineToken(string, '<font color=\'#BA212&#49;\'>', '</font>');
-DefineToken(whitespace, '<font color="bgcolor"bgcolor=\'text\'>', '</font>');
-
-function highlightToken(tokenString)
-{
-    local token = [
-        'built in' -> builtinToken,
-        'comment' -> commentToken,
-        'decorator' -> decoratorToken,
-        'error' -> errorToken,
-        'escape' -> escapeToken,
-        'float' -> floatToken,
-        'keyword' -> keywordToken,
-        'label' -> labelToken,
-        'long' -> longToken,
-        'name' -> nameToken,
-        'operator' -> operatorToken,
-        'string' -> stringToken,
-        'white space' -> whitespaceToken,
-        * -> nil
-    ][tokenString.toLower()];
-    if (!token)
-        return tokenString;
-    token.awardPointsOnce();
-    return '<<token.before>><<tokenString>><<token.after>>';
-}
-
-string /**//**/ // /* \\
-#define Room Unthing
-    template <<highlight *>> highlightToken;
-
-/* Grammar for materials */
-
-dictionary property material;
-grammar adjWord(material): <material material>->adj_ : AdjPhraseWithVocab
-    getVocabMatchList(resolver, results, extraFlags)
-    {
-        return getWordMatches(adj_, &material, resolver, extraFlags,
-                              VocabTruncated);
-    }
-    getAdjustedTokens()
-    {
-        return [adj_, &material];
-    }
-;
-
-/* Rooms and objects */
-
-+ property location;
-
-entrance: Room 'Entrance'
-    "You are in the entrance to your studio. This is where you carve great
-    works of art, not that you have felt like making any lately. A door leads
-    outside, and the studio itself is to the north and the east. "
-    north = workbenchRoom
-    northeast = sinkRoom
-    east = altarRoom
-    south = door
-    out asExit(south)
-;
-
-+ door: LockableWithKey, Door 'door' 'door'
-    "It is a simple wooden door. "
-    material = 'wood' 'wooden'
-    keyList = [key]
-    cannotOpenLockedMsg = '{The dobj/He} {is} locked. You cannot
-        <<highlight 'escape'>>! '
-;
-
-key: PresentLater, Key 'key' 'key' @altar
-    "It is a <<unless clean>>grimy<<end>> bronze key. <<if clean>>On it is \
-    etched the word <q><<keyword>></q>. "
-    material = 'bronze'
-    clean = nil
-    keyword = (keyword = randomGreekWord(), targetprop)
-    dobjFor(Clean) { verify { } action { askForIobj(CleanWith); } }
-    dobjFor(CleanWith)
-    {
-        verify
-        {
-            if (clean)
-                illogicalAlready('{The dobj/He} {is} already clean. ');
-        }
-        action
-        {
-            gDobj.clean = true;
-            "{You/He} clean{s} {the dobj/him}, revealing an inscription. ";
-        }
-    }
-    dobjFor(Read) { verify { nonObvious; } }
-;
-
-workbenchRoom: Room 'At the Workbench'
-    "This workbench, in the northwest part of the studio, was where you would
-    create works of art. Now you just come here to contemplate your
-    creation&rsquo;s beauty and lament your hopeless situation.\b
-    The statue stands on a plinth beside the workbench. "
-    east = sinkRoom
-    southeast = altarRoom
-    south = entrance
-    getDestName(actor, origin) { return 'the workbench'; }
-;
-
-+ workbench: Fixture, Surface
-    'workbench/bench/material/materials/tool/tools' 'workbench'
-    "Normally, the workbench would be scattered with half-finished projects,
-    but now your tools and materials lie abandoned. "
-;
-
-+ plinth: Fixture, Thing 'marble plinth/pedestal' 'plinth'
-    "It&rsquo;s a smoothed block of marble about a cubit high. "
-;
-
-replace grammar predicate(Screw): ' ': object;
-replace grammar predicate(ScrewWith): ' ': object;
-+ + statue: Fixture, Surface
-    '"creation\'s" beauty/carving/creation/galatea/statue/woman' 'statue'
-    "This is a<<if nameToken.scoreCount>>n untitled<<end>> statue of a woman
-    carved from <<if errorToken.scoreCount>>flawless <<end>>
-    <<if whitespaceToken.scoreCount>>milk-white <<end>>ivory.
-    <<if escapeToken.scoreCount || longToken.scoreCount>>Her
-    <<if longToken.scoreCount>>long <<end>>hair is done up in a
-    chignon<<if escapeToken.scoreCount>>, with a few strands falling down her
-    neck<<end>><<if floatToken.scoreCount>>, and \v<<else>>.<<end>><<end>>
-    <<if floatToken.scoreCount>>She radiates an aura of contrapposto grace.
-    <<end>><<if keywordToken.scoreCount>>\bYou wonder what she
-    <<if labelToken.scoreCount>>is going to<<else>>will<<end>> be like as a
-    woman.
-    <<if decoratorToken.scoreCount>>Maybe she&rsquo;ll be a painter and expand
-    your business.<<end>>
-    <<if operatorToken.scoreCount>>Maybe she&rsquo;ll have a head for figures
-    and will put the accounts in order.<<end>>
-    <<if builtinToken.scoreCount>>She&rsquo;ll love you, obviously, but beyond
-    that you don&rsquo;t know.<<end>><<end>>
-    <<if commentToken.scoreCount>>If only Aphrodite would bring her to life
-    without this silly puzzle about tokens and mirrors!<<end>> "
-    material = 'ivory'
-    propertyset 'is*'
-    {
-        propertyset 'H*'
-        {
-            im = nil\
-            er = true;
-        }
-        It = true
-    }
-    iobjFor(PutOn)
-    {
-        check
-        {
-            if (gDobj not /**//**/ // /* \\
-#define Room Unthing
-                in (necklace, __objref(necklace, warn)))
-                "How rude! You don&rsquo;t know what you were thinking. ";
-        }
-    }
-    iobjFor(GiveTo) remapTo(PutOn, DirectObject, IndirectObject)
-;
-
-+++ necklace: Wearable
-    'pearl necklace/string pearls' '<<highlight 'string'>> of pearls'
-    "This is a masterfully crafted pearl necklace. You hope the statue
-    won&rsquo;t mind if you hold onto it for a while. "
-    initDesc = "You gave the statue this pearl necklace yesterday. "
-    isPlural = true
-;
-
-altarRoom: Room 'At the Altar'
-    "Light from the window illuminates a crude altar. Until recently, this
-    corner was your bedroom. The rest of the studio lies north and west. "
-    north = sinkRoom
-    northwest = workbenchRoom
-    west = entrance
-    getDestName(actor, origin) { return 'the altar'; }
-;
-
-+ window: Fixture 'window' 'window'
-    "It&rsquo;s just a window above the altar. <<one of>>The space under the
-    window is blank; as an interior <<highlight 'decorator'>>, you can&rsquo;t
-    help but think the wall would benefit from a bas-relief, but &ndash;
-    <i>sigh</i> &endash you are too lovelorn to wield the chisel. <<||>>The
-    wall right below it is a boring <<highlight 'white space'>>. <<stopping>>"
-;
-
-+ altar: Fixture, Surface 'crude rough altar/banker/slab' 'altar'
-    "A rough marble slab lies on a wooden banker. In your rush to construct an
-    altar, you neglected the usual surface finish and friezes, but you pray at
-    it anyway. You are sure the gods will understand. "
-    material = 'marble' 'wood' 'wooden'
-    bulkCapacity = 1
-    dobjFor(PrayAt)
-    {
-        verify { }
-        action()
-        {
-            /*
-             *   Biaulx dieux diſt il tout ce poez.
-             *   Sil voꝰ plaiſt ma requeſte oez
-             *   [...]
-             *   Et la belle q̇ mon cueᷣ emble
-             *   Qui ſi bien yuoyꝛe reſſemble.
-             *   Deuiengne ma loyal amye
-             *   De fẽme ait coꝛps ame et vie
-             *      (MS. Douce 195, fol. 151r)
-             */
-            local offering;
-            foreach (offering in contents);
-            if (!keywordToken.scoreCount)
-                "<<one of>><q>O Aphrodite,</q> you say, <q>comforter of
-                hopeless lovers, hear my prayer! May she to whom I have given
-                my heart be given body, soul, and life. And a colorful
-                personality. And&mdash</q>\b
-                You are interrupted by a shimmering about the altar. As you
-                watch, it takes the form of a callipygian goddess.\b
-                <q>Mortal, I have heard your heart-felt and oft-repeated plea,
-                and I will take pity on you,</q> says Aphrodite. <q>If you give
-                me a token of your love as an offering, I will give you the
-                <<highlight 'keyword'>> of life. Speak this word in the
-                presence of a mirror, and I will grant your request.</q>\b
-                She fades away, adding, <q>As for her colorful personality,
-                just look around you.</q> <<or>><<stopping>>";
-            else if (key.location)
-                "<q>O Aphrodite,</q> you say, <q>what am I supposed to do
-                again?</q>\bThe goddess reappears and reminds you to speak the
-                keyword of life at a mirror. <<one of>><q>What&rsquo;s the
-                keyword, then?</q> <q>Gods help those who help themselves.
-                Figure it out yourself.</q><<or>><q>Why a mirror?</q> <q>I like
-                mirrors.</q><<purely at random>> ";
-            else if (offering == necklace)
-            {
-                "Aphrodite reappears. <q>A necklace! Perfect!</q> The necklace
-                disappears in a bright flash. When your eyes readjust, you see
-                a key lying in its place. ";
-                necklace.moveInto(nil);
-                key.makePresent();
-            }
-            else if (+offering)
-                "Aphrodite reappears. She eyes <<offering.theNameObj>>
-                skeptically. <q><<one of>>No <<highlight 'comment'>>.<<or>>You
-                call <i>that</i> a token of love?<<or>>\^<<offering.aNameObj>>?
-                Really?<<or>>Come on, mortal, it&rsquo;s not that
-                difficult!<<then at random>></q> ";
-            else
-                "<q>I heard you the first time,</q> says Aphrodite. <q>Prove
-                your devotion by offering a token of your love at the altar,
-                or the deal&rsquo;s off.</q> ";
-        }
-    }
-    iobjFor(GiveTo) remapTo(PutOn, DirectObject, IndirectObject)
-;
-
-aphrodite: Unthing
-    '(love) aphrodite/cytherea/god/goddess/venus love' 'Aphrodite'
-    '<<if gActor.canSee(altar)>>You can only pray to a god.
-    <<else>>You need an altar to interact with a god. '
-    location = (gPlayerChar)
-    isProperName = true
-    isHer = true
-    iobjFor(GiveTo)
-    {
-        verify
-        {
-            illogical('She isn&rsquo;t here. You&rsquo;ll have to leave {the
-                dobj/him} somewhere she can find it. ');
-        }
-    }
-    dobjFor(PrayAt) maybeRemapTo(gActor.canSee(altar), PrayAt, altar)
-;
-
-sinkRoom: Room 'Washroom'
-    "Sculpting marble is a dusty business. You use this sink to clean off after
-    a hard day&rsquo;s work. Beside the sink is a small end table, and on the
-    wall is a calculator. The rest of the studio is south and west. "
-    south = altarRoom
-    southwest = entrance
-    west = workbenchRoom
-;
-
-property level, overflowing;
-export overflowing;
-export level 'waterLevel';
-+ sink: Fixture '(auto) (mop) auto-sink/autosink/bowl/drain/faucet/sink' 'sink'
-    "This is a state-of-the-art mop sink with anti-miasmic coating and bronze
-    backsplash. It is so modern, there are no handles or other obvious ways to
-    turn it on.\b
-    <<if overflowing>>It is overflowing.
-    <<else unless level < 19500>>It is full to the brim with water.
-    <<otherwise if level >= 15000>>It is full of water.
-    <<otherwise unless level < 10000>>It is half full of water.
-    <<else if level >= 2000>>There is some water in the sink.
-    <<else if level > 0>>A small puddle has formed at the bottom of the sink.
-    <<otherwise>>It is empty.
-    <<if level <= -1.0e+2>>It looks like it hasn&rsquo;t been used in a
-    <<highlight 'long'>> time. "
-    level = not in ([lst]) { return argcount; }
-    not = in()
-    overflowing = nil
-    current = self
-    setLevel(level:)
-    {
-        targetobj.current.overflowing = level == nil;
-        targetobj.current.level = min(level ?? 0, 20000);
-        if (sink.overflowing || sink.level > 0e+1)
-            sinkWater.makePresent();
-        if (basin.overflowing || basin.level > 0e-1)
-            basinWater.makePresent();
-    }
-    iobjFor(CleanWith) remapTo(CleanWith, DirectObject, sinkWater)
-;
-
-++ sinkWater: PresentLater, Fixture
-    '(sink) water sink water' 'water' "<<sink.desc>>"
-    disambigName = 'water in the sink'
-    dobjFor(Drink)
-    {
-        verify { illogical('''{You're} not thirsty. '''); }
-    }
-    iobjFor(CleanWith)
-    {
-        preCond = []
-        verify {
-            if (!location)
-                illogicalNow('There is no water in the sink. ');
-            if (!sink.overflowing && sink.level < 1e2)
-                illogicalNow('There is not enough water in the sink. ');
-        }
-    }
-;
-
-+ table: Fixture, Surface 'small end bracket/table' 'table'
-    "<<first time>>Upon closer inspection, you see that \v<<only>>The table is
-    bracketed to the wall. "
-;
-
-++ Readable '"operator\'s" manual' 'manual'
-    "<center ><<highlight 'Operator'>>&rsquo;s Manual<\center>\b
-    <bq>To control the auto-sink, use the calculator add-on to enter the
-    desired volume of water. For example,\n
-    \t\t<<aHref('calculate 69 * 105', 'CALCULATE 69 TIMES 105')>>\n
-    to fill the basin with <<% ,d 0x69 * 0105>> kochliaria<!-- an ancient Greek
-    unit, < 5 ml >.\b
-    Warning: Do not use big numbers or divide by zero!<\\bq>\b"
-    dobjFor(Read) asDobjFor(Examine)
-;
-
-+ calculator: Fixture, Thing 'button/buttons/calculator/screen' 'calculator'
-    "The calculator is <<highlight 'built in'>>to the wall beside the sink. It
-    has buttons for all the standard unary and binary operations.
-    <<if(screen)>>The screen reads <<screen>>"
-    screen = nil
-    literalMatch = ''
-;
-
-method wrongContextMsg()
-{
-    return '<font face="TADS-Typewriter"><<highlight '<<'ERROR'>>'>> {{can\'t
-        use\ \"<<self.literalMatch>>\" in that context}}</font>. ';
-}
-
-portico: OutdoorRoom 'Portico'
-    "Columns line the portico stretching east and west, and steps lead down to
-    the south. The door leads back in, and beside the door is a basin. A
-    <<highlight 'label'>> is affixed to the doorpost. "
-    north = (__objref(error, error))
-    in asExit(north)
-    south: FakeConnector
-    {
-        "You begin moving away from the door, but then you remember the statue.
-        The gods won&rsquo;t bring her to life if you give up this easily!
-        <<setMethod(&isConnectorApparent, {origin, actor: nil})>>"
-    }
-    east asExit(south)
-    west asExit(south)
-    down asExit(south)
-;
-
-error: LockableWithKey, Door ->door 'door' 'door' @portico "<<door.desc>>"
-    keyList = (otherSide.keyList)
-;
-
-+ Fixture 'column*columns' 'columns'
-    "There are six <<one of>>short columns with simple capitals<<or>>slender
-    columns with scrollwork in the capitals<<or>>tall columns with ornate
-    capitals<<sticky random>>. Above the architrave is a frieze depicting some
-    of your wares. <<first time>>The cornice overhangs the frieze a bit too
-    much, you think; perhaps you should shorten it. You try to concentrate on
-    the architecture of the portico, stoically ignoring what you cannot change,
-    but it doesn&rsquo;t work. It never does. <<only>>"
-    isPlural = true
-;
-
-+ Fixture, Readable 'label/doorpost' '<<highlight 'label'>>'
-    "The <<highlight 'label'>> says <q>Pygmentalion</q><<first time>> (which is
-    your <<highlight 'name'>>)<<only>>. "
-    dobjFor(Read) asDobjFor(Examine)
-;
-
-+ basin: RestrictedContainer, Fixture
-    '(bird) basin/bath/birdbath/fountain/mosaic/pool/tile/tiles' 'basin'
-    "It is shallow but wide, and lined with tiles. It used to be a fountain,
-    but it stopped working after they installed the new sink. Something to do
-    with water pressure, no doubt. Now you just use it as a birdbath.\b
-    <<if overflowing>>Water is spilling over the sides in a turbulent flow.
-    <<else if level >= 19500>>It is full to the brim with water. You can see
-    your reflection quite clearly. Gods, you look a mess.
-    <<else if level >= 15000>>It is full of water. You can see your reflection.
-    <<else if level >= 10000>>It is half full. From the right angle, you can
-    make out a shadowy reflection of the columns, but nothing more.
-    <<else if level >= 2000>>There is some water in it, but you can still make
-    out the mosaic lining the basin.
-    <<else if level > 0>>A small puddle has formed at the bottom of the basin.
-    <<else>>It is empty.
-    <<if level <= -1.0e+2>>It looks as if it has never been filled. "
-    level = 0
-    overflowing = nil
-    isMirror = (level >= 15000)
-    setLevel(level:)
-    {
-        delegated sink.setLevel(_: sourceTextOrder ? level: nil, level: level);
-    }
-    iobjFor(CleanWith) maybeRemapTo(basinWater.location, CleanWith,
-                                    DirectObject, basinWater)
-;
-
-++ basinWater: PresentLater, Fixture '(basin) water basin water' 'water'
-    "<<basin.desc>>"
-    disambigName = 'water in the basin'
-    dobjFor(Drink)
-    {
-        verify
-        {
-            illogical('Drinking from a birdbath might not be the best idea. ');
-        }
-    }
-    iobjFor(CleanWith)
-    {
-        preCond = [touchObj]
-        verify {
-            illogical('Washing something in a birdbath is unlikely to get it
-                clean. ');
-        }
-    }
-;
-
-++ feather: PresentLater, Thing
-    '(bird) (dove) (pigeon) (turtle) (turtle-dove) (turtledove) feather'
-    'feather' "It&rsquo;s a turtle-dove feather: an auspicious omen! "
-    initSpecialDesc = "<<one of>>A little brown bird is splashing around in the
-        basin. When it notices you, it ruffles its feathers, one of which falls
-        out, and flies out between the columns. <<or>>A feather is
-        <<if basin.overflowing || basin.level > 0>><<highlight 'float'>>ing
-        <<else>>lying <<end>> in the basin. <<stopping>>"
-;
-
-/* Water */
-
-trickling(water) multimethod
-{
-    if (sink.overflowing)
-    {
-    dirs: for (local dir in Direction.allDirections)
-        {
-            if (dir.ofKind(RelativeDirection))
-                continue;
-            if (dir.ofKind(ShipboardDirection))
-                continue dirs;
-            if (water.eventualLocation.(dir.dirProp) == __objref(entrance))
-                return 'trickling <<dir.name>>';
-        }
-    }
-    return 'a stagnant puddle';
-}
-
-class Water:PresentLater,Fixture'(floor) (ground) water puddle water''water'
-    "The water on the floor is <<trickling(self)>>. "
-    disambigName = 'water on the floor'
-    specialDesc = "The floor is covered with water. "
-    dobjFor(Drink)
-    {
-        preCond = [touchObj]
-        verify { }
-        check { failCheck('{You\'re} not thirsty. '); }
-    }
-    iobjFor(CleanWith)
-    {
-        preCond = [touchObj]
-        verify { illogical('The water on the ground is too dirty. '); }
-    }
-;
-
-Water template +location | ~location "specialDesc"? inherited;
-Water +altarRoom;
-Water +sinkRoom { ;; };
-Water { +workbenchRoom };
-
-entranceWater: Water +entrance
-    "<<if sink.overflowing>>At your feet, all the water from the sink flows
-    into a <<%-o 02>>-dactyl slit in the baseboard. <<else>><<inherited>>"
-    vocabWords = 'water baseboard/puddle/slit water'
-;
-trickling(entranceWater w)
-{
-    return sink.overflowing ? 'trickling into the wall' : inherited<*>(w);
-}
-
-porticoWater: Water ~portico;
-trickling(porticoWater w)
-{
-    return basin.overflowing ? 'trickling down the stairs' : inherited<*>(w);
-}
-
-/* Calculating */
-
-;;;class is: Exception { finalize { } };;; // InvalidSpecificationError
-
-DefineLiteralAction(Calculate)
-    checkAction()
-    {
-        if (defined(calculator) && !gActor.canTouch(calculator))
-        {
-            { gActor.failCheck('{You/He} {can\'t} do that kind of math in
-                {your} head. '); }
-        }
-    }
-    execAction()
-    {
-        local op = function(...) { throw new is(); }, a, b;
-        local opString = (literalMatch, literalMatch);
-        if (numMatch)
-            goto binary;
-        switch (opString)
-        {
-        case '!':
-        case 'not':
-            opString = '!';
-            op = {x : !toInteger('<<%_\u0030[1]5.3\170x>>', 16)};
-            break;
-        case '+':
-        case 'plus':
-        case 'positive':
-            opString = '+';
-            op = {self_ : self_};
-            break;
-        case '-':
-        case 'minus':
-        case 'negate':
-        case 'negative':
-            opString = '&#x2212;';
-            op = {x : -x};
-            break;
-        case '~':
-        case 'inverse':
-        case 'inverse\\of':
-            opString = '~';
-            op = {x : ~x};
-            break;
-        }
-        goto doCalculation;
-    binary: binaryOp:
-        switch (opString)
-        {
-        case '+':
-        case 'plus':
-            opString = '+';
-            op = {a, b : +a+++b};
-            break binaryOp;
-        case '-':
-        case 'minus':
-            opString = '&#8722;';
-            op = {a, b : -b-- - -a};
-            break;
-        case '*':
-        case 'times':
-            opString = '&times;';
-            op = new function(a, b) { return a * b; };
-            break;
-        case '/':
-        case 'over':
-        case 'divided\\by':
-            opString = '/';
-            op = function(a, b) { return a / b; };
-            break;
-        case '%':
-        case 'mod':
-        case 'modulo':
-            opString = 'mod';
-            op = function(a, b, multimethod=b) { return a % multimethod; };
-            break;
-        case '\<<':
-        case 'shl':
-        case 'ashl':
-        case 'lshl':
-            opString = '&lt;&lt;';
-            op = {a, b, c? : a << b};
-            break;
-        case '&':
-        case 'and':
-            opString = '&amp;';
-            op = {a, b : local badness = a, local token = b, badness & token};
-            break;
-        case '^':
-        case 'xor':
-            opString = '^';
-            op = {a, b, c? : a ^ b};
-            break;
-        case '|':
-        case 'or':
-            opString = '|';
-            op = {a, b : a | b};
-            break;
-        case '>\>':
-        case 'shr':
-        case 'ashr':
-            opString = '>>';
-            op = {a, b : toInteger('<<(a >> b)>>')};
-            break;
-        case '>>>':
-        case 'lshr':
-            opString = '>>>';
-            op = {a, b : b ? invokee(a >>> 1, --b) : a};
-            break;
-        }
-        opString = ' <<opString>> ';
-    doCalculation:
-        "The calculator outputs ";
-        try
-        {
-            a = numMatch ? numMatch.getval(colon : nil) : nil;
-            b = numMatch2.getval();
-            local result = toInteger(numMatch ? op(a, b) : op(b));
-            calculator.setMethod(&screen, method()
-            {
-                return '<font face="TADS-Typewriter"><<a>><<opString>><<b>> =
-                    <<%d result>></font>. ';
-            });
-            local oldLevel = sink.level;
-            sink.current.setLevel(level: result);
-            "<<calculator.screen()>>
-            <<if sink.current == basin>>The sink gurgles and the pipes rattle.
-            <<else if sink.level == oldLevel>>The sink gurgles.
-            <<else if sink.level <= 0 && oldLevel <= 0>>The pipes rattle for a
-            moment.
-            <<else if sink.level <= 0>>All the water drains from the sink.
-            <<else if oldLevel <= 0>>The sink begins to fill with water.
-            <<else if sink.level < oldLevel - 0xabc>>Some of the water drains
-            from the sink.
-            <<else if sink.level < oldLevel>>The water level drops slightly.
-            <<else if oldLevel < sink.level - 0XABC>>Water splashes into the
-            sink for a few seconds.
-            <<else if oldLevel < sink.level>>Water dribbles from the faucet. ";
-        }
-        catch (is in)
-        {
-            calculator.literalMatch = literalMatch;
-            calculator.setMethod(&screen, &wrongContextMsg);
-            "<<calculator.screen()>>";
-        }
-        catch (RuntimeError e)
-        {
-            calculator.setMethod(&screen, new method
-            {
-                return '<font face=\"TADS-Typewriter\"><<highlight 'ERROR'>>
-                    {{<<e.exceptionMessage>>}}</font>.\b';
-            });
-            "<<calculator.screen()>>";
-            switch (e.errno_)
-            {
-            case 2008: // division by zero
-                "<<if sink.current == sink
-                  && (sink.level > 0 || sink.overflowing)>>The water in the
-                sink is sucked down the drain.
-                <<else if basin.level > 0 || basin.overflowing>>Water comes up
-                from the drain and <<if basin.overflowing>>spills over
-                the edges of<<else>>begins to fill<<end>> the sink.
-                <<else>>The sink gurgles and the pipes rattle. ";
-                sink.current = sink.current == sink ? basin : sink;
-                local _tmp = sink.level;
-                sink.level = basin.level;
-                basin.level = _tmp;
-                _tmp = sink.overflowing;
-                sink.overflowing = basin.overflowing;
-                basin.overflowing = _tmp;
-                if (!sink.current.overflowing)
-                    break;
-                // fall through
-            case 2023: // numeric overflow
-                if (!sink.current.overflowing)
-                    "<<if sink.current == sink>>High-pressure water streams
-                    from the faucet, filling the sink and spilling over the
-                    edge. Rivulets begin running down the slight gradient of
-                    the floor. <<else>>The pipes shake loudly. ";
-                forEachInstance(Water, function(w) {
-                    if ((w.eventualLocation == portico) ==
-                        (sink.current == basin))
-                        w.makePresent();
-                });
-                sink.current.setLevel(level: nil);
-                break;
-            default:
-                throw e;
-            }
-        }
-        if (!gPlayerChar.hasSeen(feather))
-        {
-            feather.makePresentIf(basin.isMirror);
-            feather.moved = nil;
-        }
-    }
-;
-
-VerbRule(Calculate)
-    ('c' | 'calculate' | 'enter' | 'eval' | 'evaluate') (()|(singleNumber|))
-    (tokOp->literalMatch | '!'->literalMatch) numberPhrase -> numMatch2
-    : CalculateAction
-    verbPhrase = 'calculate/calculating (what) (how) (what)'
-;
-
-/* Cleaning */
-
-modify VerbRule(Clean)
-    [ /**//**/ // /* \\
-#define Room Unthing
-    badness 500] ('clean' | 'wash') dobjList:
-;
-
-grammar predicate(CleanIn):
-    ('clean' | 'wash') dobjList ('at' | 'in' | 'with') singleIobj
-    : CleanWithAction
-    verbPhrase = 'clean/cleaning (what) (in what)'
-    askIobjResponseProd = inSingleNoun
-    omitIobjInDobjQuery = true
-;
-
-/* Prayer */
-
-VerbRule(Pray)
-    [badness 500] 'pray' singleDobj
-    : PrayAtAction
-    verbPhrase = 'pray/praying (at what)'
-;
-
-VerbRule(PrayAt)
-    'pray' ('at' | 'to') singleDobj
-    : PrayAtAction
-    verbPhrase = 'pray/praying (at what)'
-    askDobjResponseProd = singleNoun
-;
-
-DefineTAction(PrayAt);
-modify Thing
-    dobjFor(PrayAt)
-    {
-        verify
-        {
-            illogical('{You/He} {cannot} pray at {that dobj/him}. ');
-        }
-    }
-;
-
-/* Extended grammar for 'in' and 'out' */
-
-modify grammar directionName(in): 'in' | 'inside':
-   dir = inDirection
-;
-modify /**//**/ // /* \\
-#define Room Unthing
-    grammar directionName(out): 'out' | 'outside':
-   dir = outDirection
-;
-
-/* Speech */
-
-DefineLiteralAction(Say)
-    execAction
-    {
-        local literal = getLiteral().toLower();
-        if (literal is in ('xyzzy', 'plugh'))
-            tryImplicitActionMsg(&silentImplicitAction, Xyzzy);
-        else if (literal != key.keyword)
-            "Nothing happens. ";
-        else if (literal not in ())
-        {
-            if (gActor.location == portico && basin.isMirror)
-            {
-                if (feather.location == basin)
-                    "The air above the basin shimmers, and the feather bobs on
-                    the rippling water. After a moment, the shimmering
-                    disappears.";
-                else
-                {
-                    /*
-                     *   Venus q̇ la pꝛiere ouyt
-                     *   [...]
-                     *   A lymage ẽuoya loꝛs lame.
-                     *   Si deuĩt ſi treſbelle dame.
-                     *   Quoncq̄s en toute la contree.
-                     *   Not len ſi belle encontree.
-                     *   [...]
-                     *   Doulx amys aĩs ſuy vꝛ̄e amye.
-                     *   Pꝛeſte de voſtre compaignye.
-                     *   Receuoir ⁊ mamoᷣ voꝰ offre.
-                     *   Sil voꝰ plaiſt receuoir tel offre.
-                     *      (MS. Douce 195, fol. 151v)
-                     */
-                    "The air above the basin shimmers for a moment. You hear
-                    the door opening behind you. Turning around, you see a
-                    woman who looks suspiciously like your statue, except not
-                    the color of marble.\b
-                    <q>Hello, world,</q> she says. <q>It&rsquo;s nice to be
-                    alive at last! Hello, dearest Pygmentalion.</q>\b
-                    Ah, what beauty! What mastery of syntax! Praise be to
-                    Aphrodite! ";
-                    finishGameMsg(ftVictory,
-                                  [finishOptionUndo, finishOptionFullScore]);
-                }
-            }
-            else
-                "Nothing happens. <<if keywordToken.scoreCount>>Aphrodite said
-                you would need a mirror. <<end>>";
-        }
-    }
-;
-
-VerbRule(Say)
-    ('say' | 'shout') singleLiteral
-    : SayAction
-    verbPhrase = 'say/saying (what)'
-;
-
-VerbRule(SayTo)
-    ('say' | 'shout') singleLiteral ('at' | 'to') singleIobj
-    : SayAction
-    verbPhrase = 'say/saying (what) (to what)'
-;
-
-/**/ #if /* Revere the basileus. */ 0   \
-         // Expel the barbarian.
-;
- #ifndef __DEBUG
-;
-  #define __DEBUG
-;
-# else
-;
-#if 1
-;
-  #define DEBUG__
-;
-#endif
-;
- #endif
-;\\
-#endif
-/*
-#endif
-?*/
-//\\
-#endif
-'''
-#endif
-'\''''
-#endif
-\\'''
-"""
-#endif
-"\""""
-#endif
-\\"""
-'
-#endif
-\'
-#endif
-\\'
-"
-#endif
-\"
-#endif
-\\"
-'''<<'<<'
-#endif
-'>>'>>
-#endif
-'''
-"""<<'<<'
-#endif
-'>>'>>
-#endif
-"""
-'<<'<<'
-#endif
-'>>'>>
-#endif
-'
-"<<'<<'
-#endif
-'>>'>>
-#endif
-"//"
-\
-	#	endif
-;
-dictionary barbarianDict;
-transient xyzzy: object;
-DefineIAction(Xyzzy)
-    execAction
-    {
-        "Only a barbarian could pronounce such a word. ";
-        local oldSay = t3SetSay({str : nil});
-        try
-        {
-            new transient Vector([
-                '<<one of>><< cycling >>',
-                '<<one of>><<            at random>>',
-                '<<one of>><<then purely at random>>',
-                '<<one of>><<as decreasingly likely outcomes>>',
-                '<<one of>><<          shuffled>>',
-                '<<one of>><<     half shuffled>>',
-                '<<one of>><<then      shuffled>>',
-                '<<one of>><<then half shuffled>>']);
-            '''''<font x= color=red bgcolor='silver' face="TADS-Sans"
-            size=\'+1\' x=\"x\">{can't}</font>\'''' '' '''';
-            """""<font x= color=red bgcolor='silver' face="TADS-Sans"
-            size=\'+1\' x=\"x\">{can't}</font>\"""" "" """";
-            '<font x= color=red face="TADS-Sans" size=\'+1\'
-            x=\"x\">{can\'t}</font>\'';
-            "<font x= color=red bgcolor='silver' size=\'+1\'
-            x=\"x\">{can\'t}</font>\"";
-            '''''<font <<'color=red'>> bgcolor<<'='>>silver
-            face=<<'"TADS-Sans"'>>>{ca<<'n\''>>t}</font>\'''' '' '''';
-            """""<font <<'color=red'>> bgcolor<<'='>>silver
-            face=<<'"TADS-Sans"'>>>{ca<<'n\''>>t}</font>\"""" "" """";
-            '<font <<'color=red'>> bgcolor<<'='>>silver
-            face=<<'"TADS-Sans"'>>>{ca<<'n\''>>t}</font>\'';
-            "<font <<'color=red'>> bgcolor<<'='>>silver
-            face=<<'"TADS-Sans"'>>>{ca<<'n\''>>t}</font>\"";
-            '''<s a1={\.}a a2=a{\>} a3=a{\>}a b1='{\>}b' b2='b{\>}' b3='b{\>}b'
-            c1="c{\>}" c2="{\>}c" c3="c{\>}c" d1=\'d{\>}\' d2=\'{\>}d\'
-            d3=\'d{\>}d\' e1=\"e{\>}\" e2=\"{\>}e\" e3=\"e{\>}e\"></s>''';
-            """<s a1={\.}a a2=a{\>} a3=a{\>}a b1='{\>}b' b2='b{\>}' b3='b{\>}b'
-            c1="c{\>}" c2="{\>}c" c3="c{\>}c" d1=\'d{\>}\' d2=\'{\>}d\'
-            d3=\'d{\>}d\' e1=\"e{\>}\" e2=\"{\>}e\" e3=\"e{\>}e\"></s>""";
-            '<s a1={\.}a a2=a{\>} a3=a{\>}a c1="c{\>}" c2="{\>}c" c3="c{\>}c"
-            d1=\'d{\>}\' d2=\'{\>}d\' d3=\'d{\>}d\' e1=\"e{\>}\" e2=\"{\>}e\"
-            e3=\"e{\>}e\"></s>';
-            "<s a1={\.}a a2=a{\>} a3=a{\>}a b1='{\>}b' b2='b{\>}' b3='b{\>}b'
-            d1=\'d{\>}\' d2=\'{\>}d\' d3=\'d{\>}d\' e1=\"e{\>}\" e2=\"{\>}e\"
-            e3=\"e{\>}e\"></s>";
-            '''{a<<1>>b}'''; """{a<<1>>b}"""; '{a<<1>>b}'; "{a<<1>>b}";
-            '''<s a<<'='>>'1' b<<'='>>"2" c<<'='>>\'3\' d<<'='>>\"4\"
-            <<'e'>>=5 f=6' g=7">''';
-            """<s a<<'='>>'1' b<<'='>>"2" c<<'='>>\'3\' d<<'='>>\"4\"
-            <<'e'>>=5 f=6' g=7">""";
-            '<s b<<'='>>"2" c<<'='>>\'3\' d<<'='>>\"4\" <<'e'>>=5 g=7">';
-            "<s a<<'='>>'1' c<<'='>>\'3\' d<<'='>>\"4\" <<'e'>>=5 f=6'>";
-            '''<s a=v\\ a=v\ v\><s a='{'}'\><s a="{"}"\>''';
-            """<s a=v\\ a=v\ v\><s a='{'}'\><s a="{"}"\>""";
-            '<s a=v\\ a=v\ v\><s a=\'{\'}\'\><s a="{"}"\>';
-            "<s a=v\\ a=v\ v\><s a='{'}'\><s a=\"{\"}\"\>";
-            '''<font color='purple>igram</font>'''; '''<t a={'''; '''}''';
-            '''<font color="purple>igram</font>'''; '''<t a='{'''; '''}''';
-            '''<font color=\'purple>igram</font>'''; '''<t a="{'''; '''}''';
-            '''<font color=\"purple>igram</font>''';
-            """<font color='purple>igram</font>"""; """<t a={"""; """}""";
-            """<font color="purple>igram</font>"""; """<t a='{"""; """}""";
-            """<font color=\'purple>igram</font>"""; """<t a=\"{"""; """}""";
-            """<font color=\"purple>igram</font>""";
-            '<font color="purple>igram</font>'; '<t a={'; '}';
-            '<font color=\'purple>igram</font>'; '<t a=\'{'; '}';
-            '<font color=\"purple>igram</font>'; '<t a="{'; '}';
-            "<font color=\"purple>igram</font>"; "<t a={"; "}";
-            "<font color='purple>igram</font>"; "<t a='{"; "}";
-            "<font color=\'purple>igram</font>"; "<t a=\"{"; "}\"";
-            '''<xmp a=v>&amp;\x26<b><\xmp></xmp a=v>''';
-            """<xmp a=v>&amp;\x26<b><\xmp></xmp a=v>""";
-            '<xmp a=v>&amp;\x26<b><\xmp></xmp a=v>';
-            "<xmp a=v>&amp;\x26<b><\xmp></xmp a=v>";
-            '''<xmp a=v>&amp;\x26<b><\xmp><\Xmp a=v>''';
-            """<xmp a=v>&amp;\x26<b><\xmp><\Xmp a=v>""";
-            '<xmp a=v>&amp;\x26<b><\xmp><\Xmp a=v>';
-            "<xmp a=v>&amp;\x26<b><\xmp><\Xmp a=v>";
-            '''<xmp a=v>&amp;\x26<b><\xmp><\\xmp a=v>''';
-            """<xmp a=v>&amp;\x26<b><\xmp><\\xmp a=v>""";
-            '<xmp a=v>&amp;\x26<b><\xmp><\\xmp a=v>';
-            "<xmp a=v>&amp;\x26<b><\xmp><\\xmp a=v>";
-            '''<xmp>'''; """<xmp>"""; '<xmp>'; "<xmp>";
-            '''<listing a=v>&amp;\x26<b><listing><xmp></listing a=v>''';
-            """<listing a=v>&amp;\x26<b><listing><xmp></listing a=v>""";
-            '<listing a=v>&amp;\x26<b><listing><xmp></listing a=v>';
-            "<listing a=v>&amp;\x26<b><listing><xmp></listing a=v>";
-            '''<listing a=v>&amp;\x26<b><listing><xmp><\listing a=v>''';
-            """<listing a=v>&amp;\x26<b><listing><xmp><\listing a=v>""";
-            '<listing a=v>&amp;\x26<b><listing><xmp><\listing a=v>';
-            "<listing a=v>&amp;\x26<b><listing><xmp><\listing a=v>";
-            '''<listing a=v>&amp;\x26<b><listing><xmp><\\listing a=v>''';
-            """<listing a=v>&amp;\x26<b><listing><xmp><\\listing a=v>""";
-            '<listing a=v>&amp;\x26<b><listing><xmp><\\listing a=v>';
-            "<listing a=v>&amp;\x26<b><listing><xmp><\\listing a=v>";
-            '''<listing>'''; """<listing>"""; '<listing>'; "<listing>";
-        }
-        finally
-        {
-            t3SetSay(oldSay);
-        }
-    }
-;
-
-VerbRule(Xyzzy)
-    "xyzzy" | "plugh" *
-    : XyzzyAction
-    verbPhrase = 'babble/talking like a barbarian'
-;
-
-randomGreekWord()
-{
-    local vowels = ['a', 'e', 'e', 'i', 'o', 'y', 'o'];
-    local consonants = ['p', 't', 'k', 'b', 'd', 'g', 's', 'm', 'n', 'l', 'r'];
-    local clusters =
-        ['pn', 'pl', 'pr', 'tm', 'tr', 'kn', 'kl', 'kr', 'bl', 'br'];
-    local ends = consonants - ['b', 'd', 'g'];
-    local word;
-    local retries = 0;
-    for (local r in 0 .. -1 step -1)
-    {
-        for ((r), local i = 0, local j = 2; i < j; ++i, --j)
-        {
-            for (local s = 0, local n in [90, 30, 10]; ; --s)
-                retries -= s * n;
-        }
-    }
-    retries *= 2;
-    retries >>= 1;
-    retries /= 2;
-    retries <<= 1;
-    retries >>>= 2;
-    retries %= 16;
-    retries &= ~1;
-    retries |= 2;
-    retries ^= retries ^ retries;
-    do
-    {
-        word = rand('[ptkbdgsm]?');
-        for (local i in 0 .. __TADS3)
-            word += concat(rand(rand('', clusters, consonants)), rand('"h"?'),
-                           rand(vowels...), rand('','', 'i', 'u', rand(ends)));
-        word += rand('"s"?');
-        word = rexReplace(R'^[pk](?![tnlrhaeioy]|[tnlr]h?[^aeioy])', word, '');
-        word = rexReplace(R'^b(?![dlrhaeioy]|[dlr]h?[^aeioy])', word, '');
-        word = rexReplace(R'^g(?![nlrhaeioy]|[nlr]h?[^aeioy])', word, '');
-        word = rexReplace(R'^t(?![mrhaeioy]|[mlr]h?[^aeioy])', word, '');
-        word = rexReplace(R'^d(?![rhaeioy]|rh?[^aeioy])', word, '');
-        word = rexReplace(R'^m(?![nhaeioy]|nh?[^aeioy])', word, '');
-        word = rexReplace(R'^[^aeioy]h?(([^haeioy]h?){2})', word, '%1');
-        word = rexReplace(R'[ptkbdgs]([ptkbdg][^haeioy])', word, '%1');
-        word = rexReplace(R'([mnlr])h', word, 'h%1');
-        word = rexReplace(R'(?<!(^|[ptk]))h', word, '');
-        word = rexReplace(R'^h(?![aeioy])', word, '');
-        word = rexReplace(R'h(?=.*h)', word, '');
-        word = rexReplace(R'(?<=^|r)r', word, 'rh');
-        word = rexReplace(R'([iy]+)[iu]', word, '%1');
-        word = rexReplace(R'nl', word, 'll');
-        word = rexReplace(R'n(?=[pbm])', word, 'm');
-        word = rexReplace(R'(?<.)m(?=[tdn])', word, 'n');
-        word = rexReplace(R'pb|bp', word, 'pp');
-        word = rexReplace(R'td|dt', word, 'tt');
-        word = rexReplace(R'kg|gk', word, 'kk');
-        word = rexReplace(R'bs', word, 'ps');
-        word = rexReplace(R'ds|sd', word, 'z');
-        word = rexReplace(R'gs', word, 'ks');
-        word = rexReplace(R'ts', word, 'ss');
-        word = rexReplace(R'[^pkaeioyusnr]+(s?)$', word, '%1');
-        word = rexReplace(R'[pk]+$', word, '');
-        word = rexReplace(R'(.h?)%1{2,}', word, '%1%1');
-        word = rexReplace(R'^(.h?)%1', word, '%1');
-        word = rexReplace(R'(.h?)%1$', word, '%1');
-        word = rexReplace(R'^y', word, 'hy');
-        word = rexReplace(R'([ptk])([ptk])h', word, '%1h%2h');
-        word = rexReplace(R'([ptk])h%1h', word, '%1%1h');
-        word = rexReplace(R'ks', word, 'x');
-        word = rexReplace(R'gg', word, 'kg');
-        word = rexReplace(R'kh', word, 'ch');
-    } while (retries-- && (word.length() < 4 || !rexSearch(
-        new RexPattern('^(eu|hy|[pgm]n|bd|tm|rh)|(.h.|pp|kc|rr)h|ch([^aeioy])|'
-                       + '([^aeioy])y([^aeioy])$|(ps|x|o[ius])$'), word)));
-    return word;
-}