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

char fonts[256] = "ManjushreeCSX";

%}
%START SKT
%%

"<SA>"                 { printf("<font face=\"%s\">", fonts); BEGIN SKT; }
"</SA>"                { printf("</font>");  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"               { putchar('\xf1'); putchar('h'); } // asp. retro. t
<SKT>"Q"               { putchar('\xf3'); putchar('h'); } // asp. retro. d

<SKT>"/a"              putchar('\xa0'); // + acute acc.
<SKT>"/i"              putchar('\xa1');
<SKT>"/u"              putchar('\xa3');
<SKT>"/f"              putchar('\xc6');
<SKT>"/x"              putchar('\xeb'); // can't display accent
<SKT>"/A"              putchar('\xb5');
<SKT>"/I"              putchar('\xb7');
<SKT>"/U"              putchar('\xbd');
<SKT>"/F"              putchar('\xcf');
<SKT>"/X"              putchar('\xed'); // can't display accent
<SKT>"/e"              putchar('\x82');
<SKT>"/o"              putchar('\xa2');
<SKT>"/E"              { putchar('a'); putchar('\xa1'); }
<SKT>"/O"              { putchar('a'); putchar('\xa3'); }

<SKT>"^a"              putchar('\x85'); // + grave acc. (indicates svarita)
<SKT>"^i"              putchar('\x8d');
<SKT>"^u"              putchar('\x97');
<SKT>"^f"              putchar('\xc7');
<SKT>"^x"              putchar('\xeb'); // can't display accent
<SKT>"^A"              putchar('\xb6');
<SKT>"^I"              putchar('\xb8');
<SKT>"^U"              putchar('\xbe');
<SKT>"^F"              putchar('\xe9'); // can't display accent
<SKT>"^X"              putchar('\xed'); // can't display accent
<SKT>"^e"              putchar('\x8a');
<SKT>"^o"              putchar('\x95');
<SKT>"^E"              { putchar('a'); putchar('\x8d'); }
<SKT>"^O"              { putchar('a'); putchar('\x97'); }

<SKT>"`a"              putchar('\x85'); // + grave acc.
<SKT>"`i"              putchar('\x8d');
<SKT>"`u"              putchar('\x97');
<SKT>"`f"              putchar('\xc7');
<SKT>"`x"              putchar('\xeb'); // can't display accent
<SKT>"`A"              putchar('\xb6');
<SKT>"`I"              putchar('\xb8');
<SKT>"`U"              putchar('\xbe');
<SKT>"`F"              putchar('\xe9'); // can't display accent
<SKT>"`X"              putchar('\xed'); // can't display accent
<SKT>"`e"              putchar('\x8a');
<SKT>"`o"              putchar('\x95');
<SKT>"`E"              { putchar('a'); putchar('\x8d'); }
<SKT>"`O"              { putchar('a'); putchar('\x97'); }

<SKT>"f"               putchar('\xe7'); // syll. r
<SKT>"x"               putchar('\xeb'); // syll. l
<SKT>"A"               putchar('\xe0'); // long a
<SKT>"I"               putchar('\xe3'); // long i
<SKT>"U"               putchar('\xe5'); // long u
<SKT>"F"               putchar('\xe9'); // long syll. r
<SKT>"X"               putchar('\xed'); // long syll. l

<SKT>"N"               putchar('\xef'); // vel. n
<SKT>"Y"               putchar('\xa4'); // pal. n
<SKT>"w"               putchar('\xf1'); // retro. t
<SKT>"q"               putchar('\xf3'); // retro. d
<SKT>"R"               putchar('\xf5'); // retro. n
<SKT>"S"               putchar('\xf7'); // sch 
<SKT>"z"               putchar('\xf9'); // sh

<SKT>"~l"              putchar('\xa6'); // nasalized l
<SKT>"~"               ;

<SKT>"H"               putchar('\xfe'); // visarga
<SKT>"M"               putchar('\xa7'); // anusvara
<SKT>"'"               putchar('\xd9'); // avagraha

<SKT>"L"               putchar('\xfb'); // retro. l (Vedic)
<SKT>"|"               { putchar('\xfb'); putchar('h'); }

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

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