#! /bin/perl -f
# Recoding superanalytic to ad-hoc encoding:
/^[^#]/s/ij/f/g
/^[^#]/s/ix/e/g
/^[^#]/s/cy/X/g
/^[^#]/s/ci/X/g
/^[^#]/s/iiiiu/m/g
/^[^#]/s/iiiu/m/g
/^[^#]/s/iiu/m/g
/^[^#]/s/iis/v/g
/^[^#]/s/is/r/g
/^[^#]/s/X/ci/g
/^[^#]/s/o/ci/g
/^[^#]/s/cs/c/g
/^[^#]/s/qci/A/g
/^[^#]/s/qj/H/g
/^[^#]/s/qg/P/g
/^[^#]/s/lj/H/g
/^[^#]/s/lg/P/g