# switch out consecutive uppercase letters

sub A A' by A.ss01;
sub B B' by B.ss01;
sub C C' by C.ss01;
sub D D' by D.ss01;
sub E E' by E.ss01;
sub F F' by F.ss01;
sub G G' by G.ss01;
sub H H' by H.ss01;
sub I I' by I.ss01;
sub J J' by J.ss01;
sub K K' by K.ss01;
sub L L' by L.ss01;
sub M M' by M.ss01;
sub N N' by N.ss01;
sub O O' by O.ss01;
sub P P' by P.ss01;
sub Q Q' by Q.ss01;
sub R R' by R.ss01;
sub S S' by S.ss01;
sub T T' by T.ss01;
sub U U' by U.ss01;
sub V V' by V.ss01;
sub W W' by W.ss01;
sub X X' by X.ss01;
sub Y Y' by Y.ss01;
sub Z Z' by Z.ss01;

# do the same for lowercase letters

sub a a' by a.ss01;
sub b b' by b.ss01;
sub c c' by c.ss01;
sub d d' by d.ss01;
sub e e' by e.ss01;
sub f f' by f.ss01;
sub g g' by g.ss01;
sub h h' by h.ss01;
sub i i' by i.ss01;
sub j j' by j.ss01;
sub k k' by k.ss01;
sub l l' by l.ss01;
sub m m' by m.ss01;
sub n n' by n.ss01;
sub o o' by o.ss01;
sub p p' by p.ss01;
sub q q' by q.ss01;
sub r r' by r.ss01;
sub s s' by s.ss01;
sub t t' by t.ss01;
sub u u' by u.ss01;
sub v v' by v.ss01;
sub w w' by w.ss01;
sub x x' by x.ss01;
sub y y' by y.ss01;
sub z z' by z.ss01;


# sets up classes
Con0: B C D F G H J K L M N P Q R S T V W X Y Z b c d f g h j k l m n p q r s t v w x y z;
Con1: B.ss01 C.ss01 D.ss01 F.ss01 G.ss01 H.ss01 J.ss01 K.ss01 L.ss01 M.ss01 N.ss01 P.ss01 Q.ss01 R.ss01 S.ss01 T.ss01 V.ss01 W.ss01 X.ss01 Y.ss01 Z.ss01 b.ss01 c.ss01 d.ss01 f.ss01 g.ss01 h.ss01 j.ss01 k.ss01 l.ss01 m.ss01 n.ss01 p.ss01 q.ss01 r.ss01 s.ss01 t.ss01 v.ss01 w.ss01 x.ss01 y.ss01 z.ss01;

Voc0: A E I O U;
Voc1: A.ss01 E.ss01 I.ss01 O.ss01 U.ss01 a.ss01 e.ss01 i.ss01 o.ss01 u.ss01;

Etc: space comma;

# adding code to let me still pull alternates for non-consecutive letters

# consonant-consonant
sub @Con0 @Con0' by @Con1;
sub @Con1 @Con0' by @Con2;

# consonant-other-consonant
sub @Con0 [@Voc0 @Voc1 @Voc2 @Etc] @Con0' by @Con1;
sub @Con1 [@Voc0 @Voc1 @Voc2 @Etc] @Con0' by @Con2;

# consonant-other-other-consonant
sub @Con0 [@Voc0 @Voc1 @Voc2 @Etc] [@Voc0 @Voc1 @Voc2 @Etc] @Con0' by @Con1;
sub @Con1 [@Voc0 @Voc1 @Voc2 @Etc] [@Voc0 @Voc1 @Voc2 @Etc] @Con0' by @Con2;

# vowel-vowel
sub @Voc0 @Voc0' by @Voc1;
sub @Voc1 @Voc0' by @Voc2;

# vowel-other-vowel
sub @Voc0 [@Con0 @Con1 @Con2 @Etc] @Voc0' by @Voc1;
sub @Voc1 [@Con0 @Con1 @Con2 @Etc] @Voc0' by @Voc2;

# vowel-other-other-vowel
sub @Voc0 [@Con0 @Con1 @Con2 @Etc] [@Con0 @Con1 @Con2 @Etc] @Voc0' by @Voc1;
sub @Voc1 [@Con0 @Con1 @Con2 @Etc] [@Con0 @Con1 @Con2 @Etc] @Voc0' by @Voc2;

# vowel-other-other-other-vowel
sub @Voc0 [@Con0 @Con1 @Con2 @Etc] [@Con0 @Con1 @Con2 @Etc] [@Con0 @Con1 @Con2 @Etc] @Voc0' by @Voc1;
sub @Voc1 [@Con0 @Con1 @Con2 @Etc] [@Con0 @Con1 @Con2 @Etc] [@Con0 @Con1 @Con2 @Etc] @Voc0' by @Voc2;