

$cw{101} = 20; $cw{103} = 13; $cw{109} = 19; $cw{113} = 14;
$cw{301} = 10; $cw{308} = 19;

$cw{102} = 19; $cw{104} = 18; $cw{110} = 16; $cw{319} = 11; 
$cw{321} = 17;

$cw{128} = 16; $cw{130} = 17; $cw{132} = 12; $cw{134} = 13;
$cw{146} = 18; $cw{302} = 15; $cw{322} = 16; $cw{307} = 17;

$cw{129} = 19; $cw{131} = 17; $cw{133} = 17; $cw{135} = 16;
$cw{303} = 14; $cw{314} = 19; $cw{306} = 15;

$cw{114} = 29; $cw{116} = 19; $cw{119} = 17; $cw{325} = 23;
$cw{304} = 16; $cw{305} = 17;

$cw{170} = 26; $cw{151} = 13; $cw{153} = 10;

$cw{155} = 10; $cw{501} = 7;  $cw{502} = 5;

%IPA = (
     P => 101, B => 102, T => 103, D => 104,
     K => 109, G => 110, 
     M => 114, N => 116, NG => 119,
     F => 128, V => 129, TH => 130, DH => 131,
     S => 132, Z => 133, SH => 134, ZH => 135,
     W => 170, Y => 153, R => 151,  L => 155,
     HH => 146,
     IY0 => 301, IY1 => 301, IY2 => 301,     
     IH0 => 319, IH1 => 319, IH2 => 319,
     EY0 => 302, EY1 => 302, EY2 => 302,
     EH0 => 303, EH1 => 303, EH2 => 303,
     AE0 => 325, AE1 => 325, AE2 => 325,
     AA0 => 305, AA1 => 305, AA2 => 305,
     AO0 => 306, AO1 => 306, AO2 => 306,
     OW0 => 307, OW1 => 307, OW2 => 307,
     UH0 => 321, UH1 => 321, UH2 => 321,
     UW0 => 308, UW1 => 308, UW2 => 308,
     AH0 => 322, AH1 => 314, AH2 => 314,
     AY0 => 304, AY1 => 304, AY2 => 304,
     AW0 => 304, AW1 => 304, AW2 => 304,
     AHR0 => 322, AHR1 => 322, AHR2 => 322,
     "/" => 501, "\\" =>502
);


print "<HTML><BODY bgcolor=\"#ffffff\">";

while ($line = <>) {
   chomp $line;
   if ($line =~ /^==/) {print "<br>\n";}
   elsif ($line =~ /^!!!/) {
      print $';
   } else {
      @cmucodes = split (/ /, $line);
      foreach $code (@cmucodes) {
         print "<IMG src=\"alpha/14pt/$IPA{$code}.gif\" align=top>";
      }
      print " ";
   }
}

print "</BODY></HTML>";





