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

void put_utf8(int);


%}
%START SKT
%%

"<SA>"                  BEGIN SKT;

"</SA>"                 BEGIN 0;

<SKT>"E"               { putchar('a'); putchar('i'); }
<SKT>"O"               { putchar('a'); putchar('u'); }
<SKT>"K"               { putchar('k'); putchar('h'); }
<SKT>"G"               { putchar('g'); putchar('h'); }
<SKT>"C"               { putchar('c'); putchar('h'); }
<SKT>"J"               { putchar('j'); putchar('h'); }
<SKT>"T"               { putchar('t'); putchar('h'); }
<SKT>"D"               { putchar('d'); putchar('h'); }
<SKT>"P"               { putchar('p'); putchar('h'); }
<SKT>"B"               { putchar('b'); putchar('h'); }
<SKT>"W"               { put_utf8(0x1e6d); putchar('h'); } // asp. retro. t
<SKT>"Q"               { put_utf8(0x1e0d); putchar('h'); } // asp. retro. d

<SKT>"/a"              { put_utf8(0x00e1); } // + acute acc.
<SKT>"/i"              { put_utf8(0x00ed); } 
<SKT>"/u"              { put_utf8(0x00fa); }
<SKT>"/f"              { put_utf8(0x1e5b); put_utf8(0x0301); } // syll. r
<SKT>"/x"              { put_utf8(0x1e37); put_utf8(0x0301); } // syll. l
<SKT>"/A"              { put_utf8(0x0101); put_utf8(0x0301); } // long a
<SKT>"/I"              { put_utf8(0x012b); put_utf8(0x0301); } // long i
<SKT>"/U"              { put_utf8(0x016b); put_utf8(0x0301); } // long u
<SKT>"/F"              { put_utf8(0x1e5d); put_utf8(0x0301); } // long syll. r
<SKT>"/X"              { put_utf8(0x1e39); put_utf8(0x0301); } // long syll. l
<SKT>"/e"              { put_utf8(0x00e9); }
<SKT>"/o"              { put_utf8(0x00f3); }
<SKT>"/E"              { putchar('a'); put_utf8(0x00ed); }
<SKT>"/O"              { putchar('a'); put_utf8(0x00fa); }

<SKT>"^a"              { put_utf8(0x00e0); } // + grave acc. (indicates svarita)
<SKT>"^i"              { put_utf8(0x00ec); } 
<SKT>"^u"              { put_utf8(0x00f9); }
<SKT>"^f"              { put_utf8(0x1e5b); put_utf8(0x0300); } // syll. r
<SKT>"^x"              { put_utf8(0x1e37); put_utf8(0x0300); } // syll. l
<SKT>"^A"              { put_utf8(0x0101); put_utf8(0x0300); } // long a
<SKT>"^I"              { put_utf8(0x012b); put_utf8(0x0300); } // long i
<SKT>"^U"              { put_utf8(0x016b); put_utf8(0x0300); } // long u
<SKT>"^F"              { put_utf8(0x1e5d); put_utf8(0x0300); } // long syll. r
<SKT>"^X"              { put_utf8(0x1e39); put_utf8(0x0300); } // long syll. l
<SKT>"^e"              { put_utf8(0x00e8); }
<SKT>"^o"              { put_utf8(0x00f2); }
<SKT>"^E"              { putchar('a'); put_utf8(0x00ec); }
<SKT>"^O"              { putchar('a'); put_utf8(0x00f9); }

<SKT>"`a"              { put_utf8(0x00e0); } // + grave acc.
<SKT>"`i"              { put_utf8(0x00ec); } 
<SKT>"`u"              { put_utf8(0x00f9); }
<SKT>"`f"              { put_utf8(0x1e5b); put_utf8(0x0300); } // syll. r
<SKT>"`x"              { put_utf8(0x1e37); put_utf8(0x0300); } // syll. l
<SKT>"`A"              { put_utf8(0x0101); put_utf8(0x0300); } // long a
<SKT>"`I"              { put_utf8(0x012b); put_utf8(0x0300); } // long i
<SKT>"`U"              { put_utf8(0x016b); put_utf8(0x0300); } // long u
<SKT>"`F"              { put_utf8(0x1e5d); put_utf8(0x0300); } // long syll. r
<SKT>"`X"              { put_utf8(0x1e39); put_utf8(0x0300); } // long syll. l
<SKT>"`e"              { put_utf8(0x00e8); }
<SKT>"`o"              { put_utf8(0x00f2); }
<SKT>"`E"              { putchar('a'); put_utf8(0x00ec); }
<SKT>"`O"              { putchar('a'); put_utf8(0x00f9); }

<SKT>"f"               put_utf8(0x1e5b); // syll. r
<SKT>"x"               put_utf8(0x1e37); // syll. l
<SKT>"A"               put_utf8(0x0101); // long a
<SKT>"I"               put_utf8(0x012b); // long i
<SKT>"U"               put_utf8(0x016b); // long u
<SKT>"F"               put_utf8(0x1e5d); // long syll. r
<SKT>"X"               put_utf8(0x1e39); // long syll. l

<SKT>"N"               put_utf8(0x1e45); // vel. n
<SKT>"Y"               put_utf8(0x00f1); // pal. n
<SKT>"w"               put_utf8(0x1e6d); // retro. t
<SKT>"q"               put_utf8(0x1e0d); // retro. d
<SKT>"R"               put_utf8(0x1e47); // retro. n
<SKT>"S"               put_utf8(0x015b); // sch 
<SKT>"z"               put_utf8(0x1e63); // sh

<SKT>"H"               put_utf8(0x1e25); // visarga
<SKT>"M"               put_utf8(0x1e43); // anusvara
<SKT>"'"               ECHO;		 // avagraha

<SKT>"L"               put_utf8(0x1e37); // retro. l (Vedic)
<SKT>"|"               { put_utf8(0x1e37); putchar('h'); }

<SKT>"~"               put_utf8(0x0303); // combining tilde

<SKT>"\\"              { } // consume

.	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';

  printf("%s", out);

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