emp_mini.ps

% gs -q -dNODISPLAY emp_mini.ps 

/d{def}def/t[(A0-grBP)(B0-pBPg)(C0-bgBR)(D0-pGRb)(E0-RpgP)(F0-brGP)(G0-rGRb)
(H0-gbPR)(I0-pgRP)]d/B[9{null}repeat]d/U[9{false}repeat]d/c{dup 97 ge{32 sub}{32
add}ifelse}bind d/gs{exch dup 1 get 48 sub 3 -1 roll add 4 mod 3 add get}d/s{0
dict begin/u exch d u 9 eq{B{0 2 getinterval print(,)print}forall stop}{0 1 8{
/i exch d U i get not{0 1 3{/r exch d/rp t i get d rp 1 r 48 add put/f true d u
3 mod 0 gt{rp 3 gs c B u 1 sub get 1 gs ne{/f false d}if}if u 3 ge{rp 0 gs c B u
3 sub get 2 gs ne{/f false d}if}if f{B u rp put U i true put u 1 add s B u null
put U i false put}if}for}if}for}ifelse end}def 0 s

% A0,H0,B2,G3,E1,F3,C1,D0,I2,