#! /bin/perl -f
# Corrects "transcription errors" in FSG notation
#
s/$/ /g
s/^/ /g
s/CI/A/g
s/IIIL/M/g
s/CM/AN/g
s/AL/AN/g
s/A2/AR/g
s/4A/4O/g
s/A /G /g
s/4CD/4OD/g
s/4CH/4OH/g
s/4G/4O/g
s/A\([^KMNRIEFP]\)/O\1/g
s/^  *//g
s/  *$//g