Let's take that slower.
1 { h; d }
/^\(.\)\1\1*$/ { x; y/abcdefghijklmnopqrstuvwxyz/ABCDEFGHIJKLMNOPQRSTUVWXYZ/; x; d; } x; $ { p;x; }
Well, it's a little better.