#! /bin/perl -f
s/\(.\)/-\1/g
s/-4/`q/g
s/-8/`cg/g
s/-o/`o/g
s/-9/`cy/g
s/-s/`cs/g
s/-x/`ix/g
s/-2/`is/g
s/-c-t/`cc/g
s/-e-t/`cc/g
s/-c-'-t/`csc/g
s/-e-'-t/`csc/g
#
s/-c-Q-P-t/`cqjc/g
s/-c-D-J-t/`cqgc/g
s/-c-L-P-t/`cljc/g
s/-c-F-J-t/`clgc/g
#
s/-c-q-p-t/`cqjc/g
s/-c-q-j-t/`cqgc/g
s/-c-l-p-t/`cljc/g
s/-c-l-j-t/`clgc/g
#
s/-q-p/`qj/g
s/-q-j/`qg/g
s/-d-j/`qg/g
s/-l-p/`lj/g
s/-l-j/`lg/g
s/-f-j/`lg/g
#
s/-a/`ci/g
s/-c/`c/g
s/-i/`i/g
s/-x/`x/g
s/-v/`iu/g
s/-g/`ij/g
s/-c-g/`cj/g
s/-e-g/`cj/g
s/-\&/`ig/g
s/-n/`?/g
s/-^/`?/g
s/-y/`?/g
s/-z/`?/g
s/-k/`?/g
#
s/-\(.\)/`\1/g
#
s/`//g