lok33!

[Alan Sondheim]

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 $_;
	}


___