#! /bin/perl -f
s/^cc\(..\)$/K\1/g
s/^zc\(..\)$/K\1/g
s/^ccc\(..\)$/K\1/g
s/^zcc\(..\)$/K\1/g
s/^cccH\(..\)$/K\1/g
s/^zccH\(..\)$/K\1/g
s/^ccccH\(..\)$/K\1/g
s/^zcccH\(..\)$/K\1/g
s/^cccc\(..\)$/K\1/g
s/^zccc\(..\)$/K\1/g
s/^qoH\(..\)$/Q\1/g
s/^qoHc\(..\)$/Q\1/g
s/^qoHcc\(..\)$/Q\1/g
s/^oH\(..\)$/O\1/g
s/^oHc\(..\)$/O\1/g
s/^oHcc\(..\)$/O\1/g
s/^8\(..\)$/B\1/g