#!/usr/bin/perl -w
use strict;

my $spmodel = "~h \"sp\"\n";

while (<>) {
    print;
    if (/^~h "sil"/) {
	SIL: while (<>) {
	    print;
	    my $s;
	    if (($s = $_) =~ s/<STATE>\s*(\d+)/$1/ && $s != 3) {
		while (<>) {
		    print;
		    last if /<GCONST>/;
		}
	    } elsif (/<TRANSP>/) {
		$spmodel .= "<TRANSP> 3\n";
		$spmodel .= "0.0 1.0 0.0\n";
		$spmodel .= "0.0 0.6 0.4\n";
		$spmodel .= "0.0 0.0 0.0\n";
		while (<>) {
		    print;
		    if (/<ENDHMM>/) {
			$spmodel .= $_;
			last SIL;
		    }
		}
	    } else {
		s/<NUMSTATES> 5/<NUMSTATES> 3/;
		s/<STATE> 3/<STATE> 2/;
		$spmodel .= $_;
	    }
	}
    }
}

print $spmodel;