#! /bin/perl -f
# Recoding superanalytic to ad-hoc encoding:
s/ij/J/g
s/ix/I/g
s/ci/S/g
s/iiiu/M/g
s/iiu/N/g
s/iis/L/g
s/is/C/g
s/csc/Z/g
s/cg/U/g
s/cy/S/g
s/qo/W/g
s/qj/A/g
s/qg/E/g
s/lj/Y/g
s/lg/O/g
s/o/R/g
s/cc/T/g