%{
#include <stdio.h>
#include <ctype.h>

void put_utf8a(char *);

%}
%START SKT INIT___
%%

"<SA>"                  BEGIN INIT___;

"</SA>"                 BEGIN 0;

<INIT___>"a"           { put_utf8a("I:0x0905"); BEGIN SKT; }
<INIT___>"A"           { put_utf8a("I:0x0906"); BEGIN SKT; }
<INIT___>"i"           { put_utf8a("I:0x0907"); BEGIN SKT; }
<INIT___>"I"           { put_utf8a("I:0x0908"); BEGIN SKT; }
<INIT___>"u"           { put_utf8a("I:0x0909"); BEGIN SKT; }
<INIT___>"U"           { put_utf8a("I:0x090a"); BEGIN SKT; }
<INIT___>"f"           { put_utf8a("I:0x090b"); BEGIN SKT; }
<INIT___>"F"           { put_utf8a("I:0x0960"); BEGIN SKT; }
<INIT___>"x"           { put_utf8a("I:0x090c"); BEGIN SKT; }
<INIT___>"X"           { put_utf8a("I:0x0961"); BEGIN SKT; }
<INIT___>"e"           { put_utf8a("I:0x090f"); BEGIN SKT; }
<INIT___>"E"           { put_utf8a("I:0x0910"); BEGIN SKT; }
<INIT___>"o"           { put_utf8a("I:0x0913"); BEGIN SKT; }
<INIT___>"O"           { put_utf8a("I:0x0914"); BEGIN SKT; }


<SKT>"a"               { BEGIN INIT___; } // delete
<SKT>"A"               { put_utf8a("S:0x093e"); BEGIN INIT___; }
<SKT>"i"               { put_utf8a("S:0x093f"); BEGIN INIT___; }
<SKT>"I"               { put_utf8a("S:0x0940"); BEGIN INIT___; }
<SKT>"u"               { put_utf8a("S:0x0941"); BEGIN INIT___; }
<SKT>"U"               { put_utf8a("S:0x0942"); BEGIN INIT___; }
<SKT>"f"               { put_utf8a("S:0x0943"); BEGIN INIT___; }
<SKT>"F"               { put_utf8a("S:0x0944"); BEGIN INIT___; }
<SKT>"x"               { put_utf8a("S:0x0962"); BEGIN INIT___; }
<SKT>"X"               { put_utf8a("S:0x0963"); BEGIN INIT___; }
<SKT>"e"               { put_utf8a("S:0x0947"); BEGIN INIT___; }
<SKT>"E"               { put_utf8a("S:0x0948"); BEGIN INIT___; }
<SKT>"o"               { put_utf8a("S:0x094b"); BEGIN INIT___; }
<SKT>"O"               { put_utf8a("S:0x094c"); BEGIN INIT___; }

<INIT___,SKT>"k"/[^aAiIuUfFxXeEoO^/\\]  { put_utf8a("IS:0x0915"); put_utf8a("0x094d"); BEGIN SKT; }
<INIT___,SKT>"K"/[^aAiIuUfFxXeEoO^/\\]  { put_utf8a("IS:0x0916"); put_utf8a("0x094d"); BEGIN SKT; }
<INIT___,SKT>"g"/[^aAiIuUfFxXeEoO^/\\]  { put_utf8a("IS:0x0917"); put_utf8a("0x094d"); BEGIN SKT; }
<INIT___,SKT>"G"/[^aAiIuUfFxXeEoO^/\\]  { put_utf8a("IS:0x0918"); put_utf8a("0x094d"); BEGIN SKT; }
<INIT___,SKT>"N"/[^aAiIuUfFxXeEoO^/\\]  { put_utf8a("IS:0x0919"); put_utf8a("0x094d"); BEGIN SKT; }
<INIT___,SKT>"c"/[^aAiIuUfFxXeEoO^/\\]  { put_utf8a("IS:0x091a"); put_utf8a("0x094d"); BEGIN SKT; }
<INIT___,SKT>"C"/[^aAiIuUfFxXeEoO^/\\]  { put_utf8a("IS:0x091b"); put_utf8a("0x094d"); BEGIN SKT; }
<INIT___,SKT>"j"/[^aAiIuUfFxXeEoO^/\\]  { put_utf8a("IS:0x091c"); put_utf8a("0x094d"); BEGIN SKT; }
<INIT___,SKT>"J"/[^aAiIuUfFxXeEoO^/\\]  { put_utf8a("IS:0x091d"); put_utf8a("0x094d"); BEGIN SKT; }
<INIT___,SKT>"Y"/[^aAiIuUfFxXeEoO^/\\]  { put_utf8a("IS:0x091e"); put_utf8a("0x094d"); BEGIN SKT; }
<INIT___,SKT>"w"/[^aAiIuUfFxXeEoO^/\\]  { put_utf8a("IS:0x091f"); put_utf8a("0x094d"); BEGIN SKT; }
<INIT___,SKT>"W"/[^aAiIuUfFxXeEoO^/\\]  { put_utf8a("IS:0x0920"); put_utf8a("0x094d"); BEGIN SKT; }
<INIT___,SKT>"q"/[^aAiIuUfFxXeEoO^/\\]  { put_utf8a("IS:0x0921"); put_utf8a("0x094d"); BEGIN SKT; }
<INIT___,SKT>"Q"/[^aAiIuUfFxXeEoO^/\\]  { put_utf8a("IS:0x0922"); put_utf8a("0x094d"); BEGIN SKT; }
<INIT___,SKT>"R"/[^aAiIuUfFxXeEoO^/\\]  { put_utf8a("IS:0x0923"); put_utf8a("0x094d"); BEGIN SKT; }
<INIT___,SKT>"t"/[^aAiIuUfFxXeEoO^/\\]  { put_utf8a("IS:0x0924"); put_utf8a("0x094d"); BEGIN SKT; }
<INIT___,SKT>"T"/[^aAiIuUfFxXeEoO^/\\]  { put_utf8a("IS:0x0925"); put_utf8a("0x094d"); BEGIN SKT; }
<INIT___,SKT>"d"/[^aAiIuUfFxXeEoO^/\\]  { put_utf8a("IS:0x0926"); put_utf8a("0x094d"); BEGIN SKT; }
<INIT___,SKT>"D"/[^aAiIuUfFxXeEoO^/\\]  { put_utf8a("IS:0x0927"); put_utf8a("0x094d"); BEGIN SKT; }
<INIT___,SKT>"n"/[^aAiIuUfFxXeEoO^/\\]  { put_utf8a("IS:0x0928"); put_utf8a("0x094d"); BEGIN SKT; }
<INIT___,SKT>"p"/[^aAiIuUfFxXeEoO^/\\]  { put_utf8a("IS:0x092a"); put_utf8a("0x094d"); BEGIN SKT; }
<INIT___,SKT>"P"/[^aAiIuUfFxXeEoO^/\\]  { put_utf8a("IS:0x092b"); put_utf8a("0x094d"); BEGIN SKT; }
<INIT___,SKT>"b"/[^aAiIuUfFxXeEoO^/\\]  { put_utf8a("IS:0x092c"); put_utf8a("0x094d"); BEGIN SKT; }
<INIT___,SKT>"B"/[^aAiIuUfFxXeEoO^/\\]  { put_utf8a("IS:0x092d"); put_utf8a("0x094d"); BEGIN SKT; }
<INIT___,SKT>"m"/[^aAiIuUfFxXeEoO^/\\]  { put_utf8a("IS:0x092e"); put_utf8a("0x094d"); BEGIN SKT; }
<INIT___,SKT>"y"/[^aAiIuUfFxXeEoO^/\\]  { put_utf8a("IS:0x092f"); put_utf8a("0x094d"); BEGIN SKT; }
<INIT___,SKT>"r"/[^aAiIuUfFxXeEoO^/\\]  { put_utf8a("IS:0x0930"); put_utf8a("0x094d"); BEGIN SKT; }
<INIT___,SKT>"l"/[^aAiIuUfFxXeEoO^/\\]  { put_utf8a("IS:0x0932"); put_utf8a("0x094d"); BEGIN SKT; }
<INIT___,SKT>"L"/[^aAiIuUfFxXeEoO^/\\]  { put_utf8a("IS:0x0933"); put_utf8a("0x094d"); BEGIN SKT; }
<INIT___,SKT>"|"/[^aAiIuUfFxXeEoO^/\\]  { put_utf8a("IS:0x0933"); put_utf8a("0x094d"); put_utf8a("0x0939"); put_utf8a("0x094d"); BEGIN SKT; }
<INIT___,SKT>"v"/[^aAiIuUfFxXeEoO^/\\]  { put_utf8a("IS:0x0935"); put_utf8a("0x094d"); BEGIN SKT; }
<INIT___,SKT>"S"/[^aAiIuUfFxXeEoO^/\\]  { put_utf8a("IS:0x0936"); put_utf8a("0x094d"); BEGIN SKT; }
<INIT___,SKT>"z"/[^aAiIuUfFxXeEoO^/\\]  { put_utf8a("IS:0x0937"); put_utf8a("0x094d"); BEGIN SKT; }
<INIT___,SKT>"s"/[^aAiIuUfFxXeEoO^/\\]  { put_utf8a("IS:0x0938"); put_utf8a("0x094d"); BEGIN SKT; }
<INIT___,SKT>"h"/[^aAiIuUfFxXeEoO^/\\]  { put_utf8a("IS:0x0939"); put_utf8a("0x094d"); BEGIN SKT; }

<INIT___,SKT>"k"       { put_utf8a("IS:0x0915"); BEGIN SKT; }
<INIT___,SKT>"K"       { put_utf8a("IS:0x0916"); BEGIN SKT; }
<INIT___,SKT>"g"       { put_utf8a("IS:0x0917"); BEGIN SKT; }
<INIT___,SKT>"G"       { put_utf8a("IS:0x0918"); BEGIN SKT; }
<INIT___,SKT>"N"       { put_utf8a("IS:0x0919"); BEGIN SKT; }
<INIT___,SKT>"c"       { put_utf8a("IS:0x091a"); BEGIN SKT; }
<INIT___,SKT>"C"       { put_utf8a("IS:0x091b"); BEGIN SKT; }
<INIT___,SKT>"j"       { put_utf8a("IS:0x091c"); BEGIN SKT; }
<INIT___,SKT>"J"       { put_utf8a("IS:0x091d"); BEGIN SKT; }
<INIT___,SKT>"Y"       { put_utf8a("IS:0x091e"); BEGIN SKT; }
<INIT___,SKT>"w"       { put_utf8a("IS:0x091f"); BEGIN SKT; }
<INIT___,SKT>"W"       { put_utf8a("IS:0x0920"); BEGIN SKT; }
<INIT___,SKT>"q"       { put_utf8a("IS:0x0921"); BEGIN SKT; }
<INIT___,SKT>"Q"       { put_utf8a("IS:0x0922"); BEGIN SKT; }
<INIT___,SKT>"R"       { put_utf8a("IS:0x0923"); BEGIN SKT; }
<INIT___,SKT>"t"       { put_utf8a("IS:0x0924"); BEGIN SKT; }
<INIT___,SKT>"T"       { put_utf8a("IS:0x0925"); BEGIN SKT; }
<INIT___,SKT>"d"       { put_utf8a("IS:0x0926"); BEGIN SKT; }
<INIT___,SKT>"D"       { put_utf8a("IS:0x0927"); BEGIN SKT; }
<INIT___,SKT>"n"       { put_utf8a("IS:0x0928"); BEGIN SKT; } // 0x0929 not used
<INIT___,SKT>"p"       { put_utf8a("IS:0x092a"); BEGIN SKT; }
<INIT___,SKT>"P"       { put_utf8a("IS:0x092b"); BEGIN SKT; }
<INIT___,SKT>"b"       { put_utf8a("IS:0x092c"); BEGIN SKT; }
<INIT___,SKT>"B"       { put_utf8a("IS:0x092d"); BEGIN SKT; }
<INIT___,SKT>"m"       { put_utf8a("IS:0x092e"); BEGIN SKT; }
<INIT___,SKT>"y"       { put_utf8a("IS:0x092f"); BEGIN SKT; }
<INIT___,SKT>"r"       { put_utf8a("IS:0x0930"); BEGIN SKT; } // 0x0931 not used
<INIT___,SKT>"l"       { put_utf8a("IS:0x0932"); BEGIN SKT; }
<INIT___,SKT>"L"       { put_utf8a("IS:0x0933"); BEGIN SKT; }
<INIT___,SKT>"|"       { put_utf8a("IS:0x0933"); put_utf8a("0x094d"); put_utf8a("0x0939"); BEGIN SKT; }
<INIT___,SKT>"v"       { put_utf8a("IS:0x0935"); BEGIN SKT; }
<INIT___,SKT>"S"       { put_utf8a("IS:0x0936"); BEGIN SKT; }
<INIT___,SKT>"z"       { put_utf8a("IS:0x0937"); BEGIN SKT; }
<INIT___,SKT>"s"       { put_utf8a("IS:0x0938"); BEGIN SKT; }
<INIT___,SKT>"h"       { put_utf8a("IS:0x0939"); BEGIN SKT; }

<INIT___,SKT>"M"       { put_utf8a("IS:0x0902"); }
<INIT___,SKT>"H"       { put_utf8a("IS:0x0903"); }
<INIT___,SKT>"'"       { put_utf8a("IS:0x093d"); }
<INIT___,SKT>"."       { put_utf8a("IS:0x0964"); }
<INIT___,SKT>".."      { put_utf8a("IS:0x0965"); }
<INIT___,SKT>"0"       { put_utf8a("IS:0x0966"); }
<INIT___,SKT>"1"       { put_utf8a("IS:0x0967"); }
<INIT___,SKT>"2"       { put_utf8a("IS:0x0968"); }
<INIT___,SKT>"3"       { put_utf8a("IS:0x0969"); }
<INIT___,SKT>"4"       { put_utf8a("IS:0x096a"); }
<INIT___,SKT>"5"       { put_utf8a("IS:0x096b"); }
<INIT___,SKT>"6"       { put_utf8a("IS:0x096c"); }
<INIT___,SKT>"7"       { put_utf8a("IS:0x096d"); }
<INIT___,SKT>"8"       { put_utf8a("IS:0x096e"); }
<INIT___,SKT>"9"       { put_utf8a("IS:0x096f"); }
<INIT___,SKT>" "|\t    { ECHO; BEGIN INIT___; }
<INIT___,SKT>\n        { ECHO; fflush(stdout); BEGIN INIT___; }

<INIT___,SKT>"/"       { } // high pitch is not marked

.	               { ECHO; }
\n	               { ECHO; fflush(stdout); }
%%

void
put_utf8(int in)
{
  char out[7];
  int count;

  int mask = 0x3f;
  
  if (in <= 0x7f) {
    count = 1;
    out[0] = in;
  }
  else if (in >= 0x80 && in <= 0x7ff) {
    count = 2;

    out[1] = (in & mask) | 0x80;
    out[0] = ((in >> 6) & mask) | (0xf << (8 - count)); /* 0xc0; */
  }
  else if (in >= 0x800 && in <= 0xffff) {
    count = 3;

    out[2] = (in & mask) | 0x80;
    out[1] = ((in >> 6) & mask) | 0x80;
    out[0] = ((in >> 12) & mask) | (0xf << (8 - count)); /* 0xe0; */
  }

  out[count] = '\0';
 int i;
  printf("{");
  for (i=0;i<count;i++) {
       printf("%x:%d ",out[i],out[i]);
  }
  printf("}");
 /* printf("%s", out); */

  /* printf("%x %x\n", 0xc0, ((0x0f << 5) & 0xff)); */
}
void
put_utf8a(char *s)
{printf("%s ",s);
}