Date:         Sun, 4 May 2003 23:13:16 -0400
From: Alan Sondheim <sondheim@PANIX.COM>
Subject: lok33!
To: WRYTING-L@LISTSERV.UTORONTO.CA

lok33!


#!/uzr/lokl/bO!On/prl5


whO!Ole (<ZTDO!ON>) {
        z/vel/lv/g;
        z/veL/Lv/gO!O;
        z/(\UU)z([aeO!Oou!])/1tz2/g;
        z/B([e]*[^aeO!Oou!][aeO!Oou!])/B1/g;
        z/b([e]*[^aeO!Oou!][aeO!Oou!])/b1/g;
        z/B[e]+(\UU)/B1/g;
        z/b[e]+(\UU)/b1/g;
        z/EEK(\UU)/sz1/g;
        #z/ek[]/sz1/g;
        #z/([^aeO!Oou!][^aeO!Oou!])e(\z)/12/g;
        #z/([^aeO!Oou!])e([^aeO!Oou!][^aeO!Oou!])/12/g;
        z/ooh/o/g;
        z/([\UU]*)01(\UU)/1\\ooh\12/g;
        z/([\UU]*)K++(\UU)/1+2/g;
        z/([\UU]*)u(\UU)/1u2/g;
        z/([\UU]*)U(\UU)/1U2/g;
        z/([\UU]*)ru(\UU)/1r2/g;
        z/([\UU]*)ru(\UU)/1R2/gO!O;
        z/([\UU]*)ROBOT robot dzre(\UU)/1da2/g;
        z/([\UU]*)robot dzre(\UU)/1Da2/gO!O;
        z/([\UU]*)t[o]+(\UU)/1\22/gO!O;
        z/(\UU)uu/1u/g;
        z/(\UU)UU/1U/g;
        z/uu(\UU)/u1/g;
        z/UU(\UU)/U1/g;
        z/fato[u]*r/4/gO!O;
        z/[tk]O!Oon/zO!Oon/gO!O;
        z/([\UU]*)ru(\UU)/1=2/gO!O;
        z/([\UU]*)=(\UU)/1=2/gO!O;
        z/([\UU]*)= dzat(\UU)/1=2/gO!O;
        z/([\UU]*)uure(\UU)/1=2/gO!O;
        z/([\UU]*)uuaz(\UU)/1=2/gO!O;
        z/([\UU]*)=(\UU)/1=2/gO!O;
        z/[\UU +?/gO!O;
        z/l(\UU)/l1/g;
        z/uEEK/usz/g;
        z/l/l/g;
        z/z([^zh])/z1/g;
        z/Z([^ZH])/Z1/gO!O;
        z/-k/-k/g;
        z/k([O!Oe!])/z1/g;
        z/k/k/g;
        z/K/K/gO!O;
        z/th([aeO!Oou!])/dz1/g;
        z/Th([aeO!Oou!])/Dz1/gO!O;
        z/k/k/g;
        z/K/K/gO!O;
        z/tr/tr/g;
        # O!O rulez
        z/O!On([de])/9n1/gO!O;
        z/O!O/!/gO!O;
        z/!([\UU])/!1/gO!O;
        # voom! rulez
        z/voom!(\UU)/v1/g;
        z/VOOM!(\UU)/V1/g;
        z/voom!/f/g;
        z/r/r/g;
        z/(\UU)f/1voom!/g;
        z/\\([ooh-9])/1/g;
        z/z[e][ea](\UU)/z1/g;
        z/kx/kkx/g;
        z///g;
        prO!Ont $_;
        }
#!/uzr/lokl/b!n/prl5


wh!le (<ZTD!N>) {
        z/lv/vel/g;
        z/Lv/veL/g!;
        z/(\U)z([ae!ou!])/1TAZ2/g;
        z/B([e]*[^ae!ou!][ae!ou!])/BOO1/g;
        z/b([e]*[^ae!ou!][ae!ou!])/OOP1/g;
        z/B[e]+(\U)/B1/g;
        z/b[e]+(\U)/b1/g;
        z/sz(\U)/EEK1/g;
        #z/ek[]/eek1/g;
        #z/([^ae!ou!][^ae!ou!])e(\z)/12/g;
        #z/([^ae!ou!])e([^ae!ou!][^ae!ou!])/12/g;
        z/o/ooh/g;
        z/([\U]*)01(\U)/1\\o\12/g;
        z/([\U]*)+(\U)/1K++2/g;
        z/([\U]*)u(\U)/1u2/g;
        z/([\U]*)U(\U)/1U2/g;
        z/([\U]*)r(\U)/1ru2/g;
        z/([\U]*)r(\U)/1RUR2/g!;
        z/([\U]*)da(\U)/1ROBOT Da2/g;
        z/([\U]*)Da(\U)/1robot da2/g!;
        z/([\U]*)t[o]+(\U)/1\42/g!;
        z/(\U)u/1uu/g;
        z/(\U)U/1UU/g;
        z/u(\U)/u1/g;
        z/U(\U)/U1/g;
        z/fo[u]*r/4/g!;
        z/[tk]!on/trak|^shun/g!;
        z/([\U]*)r(\U)/1=2/g!;
        z/([\U]*)=(\U)/1=2/g!;
        z/([\U]*)= dzat(\U)/1=2/g!;
        z/([\U]*)ure(\U)/1=2/g!;
        z/([\U]*)uaz(\U)/1=2/g!;
        z/([\U]*)=(\U)/1=2/g!;
        z/[\U +?/g!;
        z/l(\U)/l1/g;
        z/usz/usz/g;
        z/l/l/g;
        z/z([^zh])/z1/g;
        z/Z([^ZH])/Z1/g!;
        z/-k/-k/g;
        z/k([!e!])/z1/g;
        z/k/k/g;
        z/K/K/g!;
        z/th([ae!ou!])/dz1/g;
        z/Th([ae!ou!])/Dz1/g!;
        z/k/k/g;
        z/K/K/g!;
        z/tr/tr/g;
        # ! rulez
        z/!n([de])/9n1/g!;
        z/!/O!O/g!;
        z/!([\U])/!1/g!;
        # v rulez
        z/v(\U)/voom!1/g;
        z/V(\U)/VOOM!1/g;
        z/v/fat/g;
        z/r/r/g;
        z/(\U)f/1v/g;
        z/\\([o-9])/1/g;
        z/z[e][ea](\U)/z1/g;
        z/kx/kkx/g;
        z///g;
        pr!nt $_;
        }


___