2.nb

(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 13.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     51742,       1146]
NotebookOptionsPosition[     48622,       1085]
NotebookOutlinePosition[     49177,       1104]
CellTagsIndexPosition[     49134,       1101]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"SetDirectory", "@", 
  RowBox[{"NotebookDirectory", "[", "]"}]}]], "Code",
 CellChangeTimes->{{3.868258074166606*^9, 3.868258080391183*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"627f2ab0-9582-40be-aa9f-6fff963a73ce"],

Cell[BoxData["\<\"/home/admin/Document/Project/EAL/Expressive/unicodetipa/\
data\"\>"], "Output",
 CellChangeTimes->{3.8682580834262247`*^9, 3.8683108149393663`*^9},
 CellLabel->"Out[3]=",ExpressionUUID->"b33f9e22-78fb-40f6-974f-4cf720a2bcfb"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Import", "[", 
      RowBox[{"#", ",", 
       RowBox[{"{", 
        RowBox[{"\"\<TSV\>\"", ",", "\"\<RawData\>\""}], "}"}], ",", 
       RowBox[{"CharacterEncoding", "->", "\"\<UTF8\>\""}]}], "]"}], "&"}], "/@", 
    RowBox[{"{", 
     RowBox[{
     "\"\<IPAExtension.tsv\>\"", ",", " ", "\"\<LatinExtended.tsv\>\"", ",", 
      "\"\<Greek.tsv\>\""}], "}"}]}], "//", "Catenate"}], ";"}], "\n", 
 RowBox[{"letters", " ", "=", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"#4", "===", "\"\<\>\""}], ",", " ", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"#5", "===", "\"\<\>\""}], ",", " ", "Nothing", ",", " ", 
        RowBox[{
         RowBox[{"FromDigits", "@", "#"}], "->", 
         RowBox[{"Letter", "@", "#5"}]}]}], "]"}], ",", " ", 
      RowBox[{
       RowBox[{"FromDigits", "@", "#"}], "->", 
       RowBox[{"Letter", "@", "#4"}]}]}], "]"}], "&"}], "@@@", 
   "%"}]}]}], "Code",
 CellChangeTimes->{{3.868269345184791*^9, 3.868269419825899*^9}, {
  3.868269575332816*^9, 3.86826974111003*^9}, {3.868269791329473*^9, 
  3.868269809699074*^9}, {3.868270107210001*^9, 3.868270145356687*^9}, {
  3.8682702297404127`*^9, 3.868270230036262*^9}, {3.868270292745719*^9, 
  3.868270327013535*^9}, {3.8682715912149687`*^9, 3.868271606400449*^9}, {
  3.868310795222855*^9, 3.8683108003769407`*^9}, {3.868310850670553*^9, 
  3.8683108548164463`*^9}, {3.868323494306468*^9, 3.8683235174328938`*^9}, {
  3.868323649896948*^9, 3.8683236502865553`*^9}},
 CellLabel->"In[85]:=",ExpressionUUID->"e99f7725-4311-4479-a35b-44d7375b82a1"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"592", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"5\"\>", "]"}]}], ",", 
   RowBox[{"593", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"A\"\>", "]"}]}], ",", 
   RowBox[{"594", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"6\"\>", "]"}]}], ",", 
   RowBox[{"595", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\!b\"\>", "]"}]}], ",", 
   RowBox[{"596", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"O\"\>", "]"}]}], ",", 
   RowBox[{"597", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"C\"\>", "]"}]}], ",", 
   RowBox[{"598", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\:d\"\>", "]"}]}], ",", 
   RowBox[{"599", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\!d\"\>", "]"}]}], ",", 
   RowBox[{"600", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"9\"\>", "]"}]}], ",", 
   RowBox[{"601", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"@\"\>", "]"}]}], ",", 
   RowBox[{"602", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\textrhookschwa\"\>", "]"}]}], ",", 
   RowBox[{"603", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"E\"\>", "]"}]}], ",", 
   RowBox[{"604", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"3\"\>", "]"}]}], ",", 
   RowBox[{"605", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\textrhookrevepsilon\"\>", "]"}]}], ",", 
   RowBox[{"606", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\textcloserevepsilon\"\>", "]"}]}], ",", 
   RowBox[{"607", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\textbardotlessj\"\>", "]"}]}], ",", 
   RowBox[{"608", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\!g\"\>", "]"}]}], ",", 
   RowBox[{"609", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"g\"\>", "]"}]}], ",", 
   RowBox[{"610", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\;G\"\>", "]"}]}], ",", 
   RowBox[{"611", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"G\"\>", "]"}]}], ",", 
   RowBox[{"612", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\textramshorns\"\>", "]"}]}], ",", 
   RowBox[{"613", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"4\"\>", "]"}]}], ",", 
   RowBox[{"614", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"H\"\>", "]"}]}], ",", 
   RowBox[{"615", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\texththeng\"\>", "]"}]}], ",", 
   RowBox[{"616", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"1\"\>", "]"}]}], ",", 
   RowBox[{"617", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\textiota\"\>", "]"}]}], ",", 
   RowBox[{"618", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"I\"\>", "]"}]}], ",", 
   RowBox[{"619", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\textltilde\"\>", "]"}]}], ",", 
   RowBox[{"620", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\textbeltl\"\>", "]"}]}], ",", 
   RowBox[{"621", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\:l\"\>", "]"}]}], ",", 
   RowBox[{"622", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\textlyoghlig\"\>", "]"}]}], ",", 
   RowBox[{"623", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"W\"\>", "]"}]}], ",", 
   RowBox[{"624", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\textturnmrleg\"\>", "]"}]}], ",", 
   RowBox[{"625", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"M\"\>", "]"}]}], ",", 
   RowBox[{"626", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\textltailn\"\>", "]"}]}], ",", 
   RowBox[{"627", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\:n\"\>", "]"}]}], ",", 
   RowBox[{"628", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\;N\"\>", "]"}]}], ",", 
   RowBox[{"629", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"8\"\>", "]"}]}], ",", 
   RowBox[{"630", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\OE\"\>", "]"}]}], ",", 
   RowBox[{"632", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"F\"\>", "]"}]}], ",", 
   RowBox[{"633", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\*r\"\>", "]"}]}], ",", 
   RowBox[{"634", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\textturnlonglegr\"\>", "]"}]}], ",", 
   RowBox[{"635", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\:R\"\>", "]"}]}], ",", 
   RowBox[{"636", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\textlonglegr\"\>", "]"}]}], ",", 
   RowBox[{"637", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\:r\"\>", "]"}]}], ",", 
   RowBox[{"638", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"R\"\>", "]"}]}], ",", 
   RowBox[{"640", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\;R\"\>", "]"}]}], ",", 
   RowBox[{"641", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"K\"\>", "]"}]}], ",", 
   RowBox[{"642", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\:s\"\>", "]"}]}], ",", 
   RowBox[{"643", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"S\"\>", "]"}]}], ",", 
   RowBox[{"644", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\!j\"\>", "]"}]}], ",", 
   RowBox[{"646", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\textctesh\"\>", "]"}]}], ",", 
   RowBox[{"647", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\*t\"\>", "]"}]}], ",", 
   RowBox[{"648", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\:t\"\>", "]"}]}], ",", 
   RowBox[{"649", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"0\"\>", "]"}]}], ",", 
   RowBox[{"650", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"U\"\>", "]"}]}], ",", 
   RowBox[{"651", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"V\"\>", "]"}]}], ",", 
   RowBox[{"652", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"2\"\>", "]"}]}], ",", 
   RowBox[{"653", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\*w\"\>", "]"}]}], ",", 
   RowBox[{"654", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"L\"\>", "]"}]}], ",", 
   RowBox[{"655", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"Y\"\>", "]"}]}], ",", 
   RowBox[{"656", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\:z\"\>", "]"}]}], ",", 
   RowBox[{"657", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\textctz\"\>", "]"}]}], ",", 
   RowBox[{"658", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"Z\"\>", "]"}]}], ",", 
   RowBox[{"659", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\textctyogh\"\>", "]"}]}], ",", 
   RowBox[{"660", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"P\"\>", "]"}]}], ",", 
   RowBox[{"661", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"Q\"\>", "]"}]}], ",", 
   RowBox[{"662", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\textinvglotstop\"\>", "]"}]}], ",", 
   RowBox[{"663", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\textstretchc\"\>", "]"}]}], ",", 
   RowBox[{"664", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\!o\"\>", "]"}]}], ",", 
   RowBox[{"665", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\;B\"\>", "]"}]}], ",", 
   RowBox[{"667", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\!G\"\>", "]"}]}], ",", 
   RowBox[{"668", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\;H\"\>", "]"}]}], ",", 
   RowBox[{"669", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"J\"\>", "]"}]}], ",", 
   RowBox[{"670", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\*k\"\>", "]"}]}], ",", 
   RowBox[{"671", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\;L\"\>", "]"}]}], ",", 
   RowBox[{"672", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\texthtq\"\>", "]"}]}], ",", 
   RowBox[{"673", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\textbarglotstop\"\>", "]"}]}], ",", 
   RowBox[{"674", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\textbarrevglotstop\"\>", "]"}]}], ",", 
   RowBox[{"675", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\textdzlig\"\>", "]"}]}], ",", 
   RowBox[{"676", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\textdyoghlig\"\>", "]"}]}], ",", 
   RowBox[{"677", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\textdctzlig\"\>", "]"}]}], ",", 
   RowBox[{"678", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\texttslig\"\>", "]"}]}], ",", 
   RowBox[{"679", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\textteshlig\"\>", "]"}]}], ",", 
   RowBox[{"680", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\texttctclig\"\>", "]"}]}], ",", 
   RowBox[{"230", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\ae\"\>", "]"}]}], ",", 
   RowBox[{"231", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\c{c}\"\>", "]"}]}], ",", 
   RowBox[{"240", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"D\"\>", "]"}]}], ",", 
   RowBox[{"248", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\o\"\>", "]"}]}], ",", 
   RowBox[{"254", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\th\"\>", "]"}]}], ",", 
   RowBox[{"295", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\textcrh\"\>", "]"}]}], ",", 
   RowBox[{"331", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"N\"\>", "]"}]}], ",", 
   RowBox[{"339", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\oe\"\>", "]"}]}], ",", 
   RowBox[{"426", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\textlooptoprevesh\"\>", "]"}]}], ",", 
   RowBox[{"441", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\textcrlambda\"\>", "]"}]}], ",", 
   RowBox[{"447", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\textwynn\"\>", "]"}]}], ",", 
   RowBox[{"448", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"|\"\>", "]"}]}], ",", 
   RowBox[{"449", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"||\"\>", "]"}]}], ",", 
   RowBox[{"450", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\textdoublebarpipe\"\>", "]"}]}], ",", 
   RowBox[{"451", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"!\"\>", "]"}]}], ",", 
   RowBox[{"545", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\textctd\"\>", "]"}]}], ",", 
   RowBox[{"565", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\textctn\"\>", "]"}]}], ",", 
   RowBox[{"566", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\textctt\"\>", "]"}]}], ",", 
   RowBox[{"946", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"B\"\>", "]"}]}], ",", 
   RowBox[{"952", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"T\"\>", "]"}]}], ",", 
   RowBox[{"955", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\textlambda\"\>", "]"}]}], ",", 
   RowBox[{"967", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"X\"\>", "]"}]}], ",", 
   RowBox[{"969", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\textomega\"\>", "]"}]}], ",", 
   RowBox[{"43877", "\[Rule]", 
    RowBox[{"Letter", "[", "\<\"\\\\textscomega\"\>", "]"}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.868269350792602*^9, 3.868269424802149*^9}, {
   3.868269590997562*^9, 3.868269646141592*^9}, {3.868269723191293*^9, 
   3.868269741372573*^9}, {3.868269793969305*^9, 3.8682698099345417`*^9}, 
   3.86827003700537*^9, {3.8682701135208483`*^9, 3.868270145714527*^9}, 
   3.868270230590556*^9, 3.868270296524621*^9, 3.868270328122596*^9, 
   3.868270589364459*^9, {3.8682716047797318`*^9, 3.868271606595924*^9}, 
   3.868271691887228*^9, {3.868310812420535*^9, 3.868310815634399*^9}, 
   3.868310856134515*^9, {3.868323508263294*^9, 3.868323519654852*^9}, 
   3.8683236556859713`*^9},
 CellLabel->"Out[86]=",ExpressionUUID->"d8b89397-21ba-492c-9bf1-07adb6d45b42"]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Import", "[", 
      RowBox[{"#", ",", 
       RowBox[{"{", 
        RowBox[{"\"\<TSV\>\"", ",", "\"\<RawData\>\""}], "}"}], ",", 
       RowBox[{"CharacterEncoding", "->", "\"\<UTF8\>\""}]}], "]"}], "&"}], "/@", 
    RowBox[{"{", 
     RowBox[{
     "\"\<SpacingModifier.tsv\>\"", ",", "\"\<Arrow.tsv\>\"", ",", 
      "\"\<GeneralPunctuation.tsv\>\""}], "}"}]}], "//", "Catenate"}], 
  ";"}], "\n", 
 RowBox[{"marks", " ", "=", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"#4", "===", "\"\<\>\""}], ",", " ", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"#5", "===", "\"\<\>\""}], ",", " ", "Nothing", ",", " ", 
        RowBox[{
         RowBox[{"FromDigits", "@", "#"}], "->", 
         RowBox[{"Mark", "@", "#5"}]}]}], "]"}], ",", " ", 
      RowBox[{
       RowBox[{"FromDigits", "@", "#"}], "->", 
       RowBox[{"Mark", "@", "#4"}]}]}], "]"}], "&"}], "@@@", "%"}]}]}], "Code",\

 CellChangeTimes->{{3.8683108067785587`*^9, 3.868310846411579*^9}, {
  3.868323614975885*^9, 3.868323642118455*^9}},
 CellLabel->"In[87]:=",ExpressionUUID->"29f8cbca-a9c0-4103-9387-e6b4abb23114"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"688", "\[Rule]", 
    RowBox[{"Mark", "[", "\<\"\\\\super h\"\>", "]"}]}], ",", 
   RowBox[{"689", "\[Rule]", 
    RowBox[{"Mark", "[", "\<\"\\\\super H\"\>", "]"}]}], ",", 
   RowBox[{"690", "\[Rule]", 
    RowBox[{"Mark", "[", "\<\"\\\\super j\"\>", "]"}]}], ",", 
   RowBox[{"691", "\[Rule]", 
    RowBox[{"Mark", "[", "\<\"\\\\super r\"\>", "]"}]}], ",", 
   RowBox[{"692", "\[Rule]", 
    RowBox[{"Mark", "[", "\<\"\\\\super{\\\\*r}\"\>", "]"}]}], ",", 
   RowBox[{"693", "\[Rule]", 
    RowBox[{"Mark", "[", "\<\"\\\\super{\\\\:R}\"\>", "]"}]}], ",", 
   RowBox[{"694", "\[Rule]", 
    RowBox[{"Mark", "[", "\<\"\\\\super K\"\>", "]"}]}], ",", 
   RowBox[{"695", "\[Rule]", 
    RowBox[{"Mark", "[", "\<\"\\\\super w\"\>", "]"}]}], ",", 
   RowBox[{"696", "\[Rule]", 
    RowBox[{"Mark", "[", "\<\"\\\\super y\"\>", "]"}]}], ",", 
   RowBox[{"700", "\[Rule]", 
    RowBox[{"Mark", "[", "\<\"'\"\>", "]"}]}], ",", 
   RowBox[{"701", "\[Rule]", 
    RowBox[{"Mark", "[", "\<\"\\\\textrevapostrophe\"\>", "]"}]}], ",", 
   RowBox[{"702", "\[Rule]", 
    RowBox[{
    "Mark", "[", "\<\"\\\\textsuperscript{\\\\textsubrhalfring{}}\"\>", 
     "]"}]}], ",", 
   RowBox[{"703", "\[Rule]", 
    RowBox[{
    "Mark", "[", "\<\"\\\\textsuperscript{\\\\textsublhalfring{}}\"\>", 
     "]"}]}], ",", 
   RowBox[{"704", "\[Rule]", 
    RowBox[{"Mark", "[", "\<\"\\\\super P\"\>", "]"}]}], ",", 
   RowBox[{"705", "\[Rule]", 
    RowBox[{"Mark", "[", "\<\"\\\\super Q\"\>", "]"}]}], ",", 
   RowBox[{"712", "\[Rule]", 
    RowBox[{"Mark", "[", "\<\"\\\"\"\>", "]"}]}], ",", 
   RowBox[{"716", "\[Rule]", 
    RowBox[{"Mark", "[", "\<\"\\\"\\\"\"\>", "]"}]}], ",", 
   RowBox[{"720", "\[Rule]", 
    RowBox[{"Mark", "[", "\<\":\"\>", "]"}]}], ",", 
   RowBox[{"721", "\[Rule]", 
    RowBox[{"Mark", "[", "\<\";\"\>", "]"}]}], ",", 
   RowBox[{"734", "\[Rule]", 
    RowBox[{"Mark", "[", "\<\"\\\\textrhoticity\"\>", "]"}]}], ",", 
   RowBox[{"736", "\[Rule]", 
    RowBox[{"Mark", "[", "\<\"\\\\super G\"\>", "]"}]}], ",", 
   RowBox[{"737", "\[Rule]", 
    RowBox[{"Mark", "[", "\<\"\\\\super l\"\>", "]"}]}], ",", 
   RowBox[{"738", "\[Rule]", 
    RowBox[{"Mark", "[", "\<\"\\\\super s\"\>", "]"}]}], ",", 
   RowBox[{"739", "\[Rule]", 
    RowBox[{"Mark", "[", "\<\"\\\\super x\"\>", "]"}]}], ",", 
   RowBox[{"741", "\[Rule]", 
    RowBox[{"Mark", "[", "\<\"\\\\tone{55}\"\>", "]"}]}], ",", 
   RowBox[{"742", "\[Rule]", 
    RowBox[{"Mark", "[", "\<\"\\\\tone{44}\"\>", "]"}]}], ",", 
   RowBox[{"743", "\[Rule]", 
    RowBox[{"Mark", "[", "\<\"\\\\tone{33}\"\>", "]"}]}], ",", 
   RowBox[{"744", "\[Rule]", 
    RowBox[{"Mark", "[", "\<\"\\\\tone{22}\"\>", "]"}]}], ",", 
   RowBox[{"745", "\[Rule]", 
    RowBox[{"Mark", "[", "\<\"\\\\tone{11}\"\>", "]"}]}], ",", 
   RowBox[{"8593", "\[Rule]", 
    RowBox[{"Mark", "[", "\<\"\\\\textupfullarrow\"\>", "]"}]}], ",", 
   RowBox[{"8595", "\[Rule]", 
    RowBox[{"Mark", "[", "\<\"\\\\textdownfullarrow\"\>", "]"}]}], ",", 
   RowBox[{"8599", "\[Rule]", 
    RowBox[{"Mark", "[", "\<\"\\\\textglobrise\"\>", "]"}]}], ",", 
   RowBox[{"8600", "\[Rule]", 
    RowBox[{"Mark", "[", "\<\"\\\\textglobfall\"\>", "]"}]}], ",", 
   RowBox[{"42779", "\[Rule]", 
    RowBox[{"Mark", "[", "\<\"\\\\textupstep\"\>", "]"}]}], ",", 
   RowBox[{"42780", "\[Rule]", 
    RowBox[{"Mark", "[", "\<\"\\\\textdownstep\"\>", "]"}]}], ",", 
   RowBox[{"124", "\[Rule]", 
    RowBox[{"Mark", "[", "\<\"\\\\textvertline\"\>", "]"}]}], ",", 
   RowBox[{"8214", "\[Rule]", 
    RowBox[{"Mark", "[", "\<\"\\\\textdoublevertline\"\>", "]"}]}], ",", 
   RowBox[{"8255", "\[Rule]", 
    RowBox[{"Mark", "[", "\<\"\\\\t{}\"\>", "]"}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.868310823089065*^9, 3.868310858546771*^9, 
  3.868323659984133*^9},
 CellLabel->"Out[88]=",ExpressionUUID->"cd737c18-8b4c-456f-926d-af43e933ff6e"]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"StringTemplate", "[", "\"\<{``}\>\"", "]"}], "@", 
  RowBox[{"StringRiffle", "[", 
   RowBox[{
    RowBox[{"First", "/@", 
     RowBox[{"Values", "@", "letters"}]}], ",", "\"\<}{\>\""}], 
   "]"}]}]], "Code",
 CellChangeTimes->{{3.868269816359788*^9, 3.868269823580185*^9}, {
  3.868270049531101*^9, 3.868270064762889*^9}, {3.868270097997449*^9, 
  3.868270098639132*^9}, {3.868270336553166*^9, 3.868270374751295*^9}, {
  3.8683108665741043`*^9, 3.868310867556944*^9}},
 CellLabel->"In[89]:=",ExpressionUUID->"418686bf-e827-4bda-b993-7ec96e1bd57b"],

Cell[BoxData["\<\"{5}{A}{6}{\\\\!b}{O}{C}{\\\\:d}{\\\\!d}{9}{@}{\\\\\
textrhookschwa}{E}{3}{\\\\textrhookrevepsilon}{\\\\textcloserevepsilon}{\\\\\
textbardotlessj}{\\\\!g}{g}{\\\\;G}{G}{\\\\textramshorns}{4}{H}{\\\\\
texththeng}{1}{\\\\textiota}{I}{\\\\textltilde}{\\\\textbeltl}{\\\\:l}{\\\\\
textlyoghlig}{W}{\\\\textturnmrleg}{M}{\\\\textltailn}{\\\\:n}{\\\\;N}{8}{\\\\\
OE}{F}{\\\\*r}{\\\\textturnlonglegr}{\\\\:R}{\\\\textlonglegr}{\\\\:r}{R}{\\\\\
;R}{K}{\\\\:s}{S}{\\\\!j}{\\\\textctesh}{\\\\*t}{\\\\:t}{0}{U}{V}{2}{\\\\*w}{\
L}{Y}{\\\\:z}{\\\\textctz}{Z}{\\\\textctyogh}{P}{Q}{\\\\textinvglotstop}{\\\\\
textstretchc}{\\\\!o}{\\\\;B}{\\\\!G}{\\\\;H}{J}{\\\\*k}{\\\\;L}{\\\\texthtq}{\
\\\\textbarglotstop}{\\\\textbarrevglotstop}{\\\\textdzlig}{\\\\textdyoghlig}{\
\\\\textdctzlig}{\\\\texttslig}{\\\\textteshlig}{\\\\texttctclig}{\\\\ae}{\\\\\
c{c}}{D}{\\\\o}{\\\\th}{\\\\textcrh}{N}{\\\\oe}{\\\\textlooptoprevesh}{\\\\\
textcrlambda}{\\\\textwynn}{|}{||}{\\\\textdoublebarpipe}{!}{\\\\textctd}{\\\\\
textctn}{\\\\textctt}{B}{T}{\\\\textlambda}{X}{\\\\textomega}{\\\\textscomega}\
\"\>"], "Output",
 CellChangeTimes->{
  3.868269824713121*^9, {3.868270057305622*^9, 3.868270098857057*^9}, {
   3.868270333219788*^9, 3.868270341463966*^9}, 3.8682703753826513`*^9, 
   3.868270591761402*^9, 3.868310874161191*^9, 3.868323669421579*^9},
 CellLabel->"Out[89]=",ExpressionUUID->"5eff673b-56c1-4127-8d91-b5cac9f17e1d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Import", "[", 
   RowBox[{"\"\<Groups.tsv\>\"", ",", 
    RowBox[{"{", 
     RowBox[{"\"\<TSV\>\"", ",", "\"\<RawData\>\""}], "}"}], ",", 
    RowBox[{"CharacterEncoding", "->", "\"\<UTF8\>\""}]}], "]"}], ";"}], "\n", 
 RowBox[{"groups", " ", "=", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"#4", "===", "\"\<\>\""}], ",", " ", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"#5", "===", "\"\<\>\""}], ",", " ", "Nothing", ",", " ", 
        RowBox[{
         RowBox[{"ToExpression", "@", "#"}], "->", 
         RowBox[{"Mark", "@", "#5"}]}]}], "]"}], ",", " ", 
      RowBox[{
       RowBox[{"ToExpression", "@", "#"}], "->", 
       RowBox[{"Mark", "@", "#4"}]}]}], "]"}], "&"}], "@@@", "%"}]}]}], "Code",\

 CellChangeTimes->{{3.868323745816085*^9, 3.8683237906511917`*^9}},
 CellLabel->"In[93]:=",ExpressionUUID->"86ea45ec-aba4-448b-a639-b537c3631a1e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"108", ",", "820"}], "}"}], "\[Rule]", 
   RowBox[{"Mark", "[", "\<\"\\\\textltilde\"\>", "]"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.8683237695979233`*^9, 3.868323791304063*^9}},
 CellLabel->"Out[94]=",ExpressionUUID->"df749e8f-9632-4f4e-8da3-290c2eed46a1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"combinators", " ", "=", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"With", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"h", "=", 
        RowBox[{"head", "|->", 
         RowBox[{"Switch", "[", 
          RowBox[{
          "head", ",", "\"\<L\>\"", ",", "CombineLeft", ",", "\"\<LR\>\"", 
           ",", "CombineBoth", ",", "_", ",", 
           RowBox[{"Throw", "@", "#7"}]}], "]"}]}]}], "}"}], ",", "\n", "\t", 
      
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"#4", "===", "\"\<\>\""}], ",", " ", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"#5", "===", "\"\<\>\""}], ",", " ", "Nothing", ",", " ", 
          RowBox[{
           RowBox[{"FromDigits", "@", "#"}], "->", 
           RowBox[{
            RowBox[{"h", "[", "#7", "]"}], "@", "#5"}]}]}], "]"}], ",", " ", 
        RowBox[{
         RowBox[{"FromDigits", "@", "#"}], "->", 
         RowBox[{
          RowBox[{"h", "[", "#7", "]"}], "@", "#4"}]}]}], "]"}]}], "\n", 
     "]"}], "&"}], "@@@", 
   RowBox[{"Import", "[", 
    RowBox[{"\"\<CombiningDiacriticalMarks.tsv\>\"", ",", 
     RowBox[{"{", 
      RowBox[{"\"\<TSV\>\"", ",", "\"\<RawData\>\""}], "}"}], ",", 
     RowBox[{"CharacterEncoding", "->", "\"\<UTF8\>\""}]}], "]"}]}]}]], "Code",\

 CellChangeTimes->{{3.868270808601017*^9, 3.86827083228544*^9}, {
  3.868270869147114*^9, 3.86827089883335*^9}, {3.868270934981846*^9, 
  3.8682710561976852`*^9}, {3.868271097050169*^9, 3.8682711159942427`*^9}, {
  3.868271159978649*^9, 3.8682713262194366`*^9}},
 CellLabel->"In[90]:=",ExpressionUUID->"517ce824-ae95-46b9-8cbf-6d44397c2062"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"768", "\[Rule]", 
    RowBox[{"CombineLeft", "[", "\<\"\\\\`\"\>", "]"}]}], ",", 
   RowBox[{"769", "\[Rule]", 
    RowBox[{"CombineLeft", "[", "\<\"\\\\'\"\>", "]"}]}], ",", 
   RowBox[{"770", "\[Rule]", 
    RowBox[{"CombineLeft", "[", "\<\"\\\\^\"\>", "]"}]}], ",", 
   RowBox[{"771", "\[Rule]", 
    RowBox[{"CombineLeft", "[", "\<\"\\\\~\"\>", "]"}]}], ",", 
   RowBox[{"772", "\[Rule]", 
    RowBox[{"CombineLeft", "[", "\<\"\\\\=\"\>", "]"}]}], ",", 
   RowBox[{"774", "\[Rule]", 
    RowBox[{"CombineLeft", "[", "\<\"\\\\u\"\>", "]"}]}], ",", 
   RowBox[{"775", "\[Rule]", 
    RowBox[{"CombineLeft", "[", "\<\"\\\\.\"\>", "]"}]}], ",", 
   RowBox[{"776", "\[Rule]", 
    RowBox[{"CombineLeft", "[", "\<\"\\\\\\\"\"\>", "]"}]}], ",", 
   RowBox[{"778", "\[Rule]", 
    RowBox[{"CombineLeft", "[", "\<\"\\\\r\"\>", "]"}]}], ",", 
   RowBox[{"779", "\[Rule]", 
    RowBox[{"CombineLeft", "[", "\<\"\\\\H\"\>", "]"}]}], ",", 
   RowBox[{"780", "\[Rule]", 
    RowBox[{"CombineLeft", "[", "\<\"\\\\v\"\>", "]"}]}], ",", 
   RowBox[{"783", "\[Rule]", 
    RowBox[{"CombineLeft", "[", "\<\"\\\\H*\"\>", "]"}]}], ",", 
   RowBox[{"784", "\[Rule]", 
    RowBox[{"CombineLeft", "[", "\<\"\\\\textdotbreve\"\>", "]"}]}], ",", 
   RowBox[{"785", "\[Rule]", 
    RowBox[{"CombineLeft", "[", "\<\"\\\\|c\"\>", "]"}]}], ",", 
   RowBox[{"790", "\[Rule]", 
    RowBox[{"CombineLeft", "[", "\<\"\\\\`\"\>", "]"}]}], ",", 
   RowBox[{"791", "\[Rule]", 
    RowBox[{"CombineLeft", "[", "\<\"\\\\'\"\>", "]"}]}], ",", 
   RowBox[{"792", "\[Rule]", 
    RowBox[{"CombineLeft", "[", "\<\"\\\\|<\"\>", "]"}]}], ",", 
   RowBox[{"793", "\[Rule]", 
    RowBox[{"CombineLeft", "[", "\<\"\\\\|>\"\>", "]"}]}], ",", 
   RowBox[{"794", "\[Rule]", 
    RowBox[{"CombineLeft", "[", "\<\"\\\\textcorner\"\>", "]"}]}], ",", 
   RowBox[{"796", "\[Rule]", 
    RowBox[{"CombineLeft", "[", "\<\"\\\\|(\"\>", "]"}]}], ",", 
   RowBox[{"797", "\[Rule]", 
    RowBox[{"CombineLeft", "[", "\<\"\\\\|'\"\>", "]"}]}], ",", 
   RowBox[{"798", "\[Rule]", 
    RowBox[{"CombineLeft", "[", "\<\"\\\\|`\"\>", "]"}]}], ",", 
   RowBox[{"799", "\[Rule]", 
    RowBox[{"CombineLeft", "[", "\<\"\\\\|+\"\>", "]"}]}], ",", 
   RowBox[{"800", "\[Rule]", 
    RowBox[{"CombineLeft", "[", "\<\"\\\\=*\"\>", "]"}]}], ",", 
   RowBox[{"803", "\[Rule]", 
    RowBox[{"CombineLeft", "[", "\<\"\\\\.*\"\>", "]"}]}], ",", 
   RowBox[{"804", "\[Rule]", 
    RowBox[{"CombineLeft", "[", "\<\"\\\\\\\"*\"\>", "]"}]}], ",", 
   RowBox[{"805", "\[Rule]", 
    RowBox[{"CombineLeft", "[", "\<\"\\\\r*\"\>", "]"}]}], ",", 
   RowBox[{"809", "\[Rule]", 
    RowBox[{"CombineLeft", "[", "\<\"\\\\s\"\>", "]"}]}], ",", 
   RowBox[{"810", "\[Rule]", 
    RowBox[{"CombineLeft", "[", "\<\"\\\\|[\"\>", "]"}]}], ",", 
   RowBox[{"811", "\[Rule]", 
    RowBox[{"CombineLeft", "[", "\<\"\\\\|w\"\>", "]"}]}], ",", 
   RowBox[{"812", "\[Rule]", 
    RowBox[{"CombineLeft", "[", "\<\"\\\\v*\"\>", "]"}]}], ",", 
   RowBox[{"813", "\[Rule]", 
    RowBox[{"CombineLeft", "[", "\<\"\\\\^*\"\>", "]"}]}], ",", 
   RowBox[{"815", "\[Rule]", 
    RowBox[{"CombineLeft", "[", "\<\"\\\\u*\"\>", "]"}]}], ",", 
   RowBox[{"816", "\[Rule]", 
    RowBox[{"CombineLeft", "[", "\<\"\\\\~*\"\>", "]"}]}], ",", 
   RowBox[{"820", "\[Rule]", 
    RowBox[{"CombineLeft", "[", "\<\"\\\\|~\"\>", "]"}]}], ",", 
   RowBox[{"825", "\[Rule]", 
    RowBox[{"CombineLeft", "[", "\<\"\\\\|)\"\>", "]"}]}], ",", 
   RowBox[{"826", "\[Rule]", 
    RowBox[{"CombineLeft", "[", "\<\"\\\\|]\"\>", "]"}]}], ",", 
   RowBox[{"827", "\[Rule]", 
    RowBox[{"CombineLeft", "[", "\<\"\\\\textsubsquare\"\>", "]"}]}], ",", 
   RowBox[{"828", "\[Rule]", 
    RowBox[{"CombineLeft", "[", "\<\"\\\\|m\"\>", "]"}]}], ",", 
   RowBox[{"829", "\[Rule]", 
    RowBox[{"CombineLeft", "[", "\<\"\\\\|x\"\>", "]"}]}], ",", 
   RowBox[{"838", "\[Rule]", 
    RowBox[{"CombineLeft", "[", "\<\"\\\\overbridge\"\>", "]"}]}], ",", 
   RowBox[{"839", "\[Rule]", 
    RowBox[{"CombineLeft", "[", "\<\"\\\\subdoublebar\"\>", "]"}]}], ",", 
   RowBox[{"840", "\[Rule]", 
    RowBox[{"CombineLeft", "[", "\<\"\\\\subdoublevert\"\>", "]"}]}], ",", 
   RowBox[{"841", "\[Rule]", 
    RowBox[{"CombineLeft", "[", "\<\"\\\\subcorner\"\>", "]"}]}], ",", 
   RowBox[{"842", "\[Rule]", 
    RowBox[{"CombineLeft", "[", "\<\"\\\\crtilde\"\>", "]"}]}], ",", 
   RowBox[{"843", "\[Rule]", 
    RowBox[{"CombineLeft", "[", "\<\"\\\\dottedtilde\"\>", "]"}]}], ",", 
   RowBox[{"844", "\[Rule]", 
    RowBox[{"CombineLeft", "[", "\<\"\\\\doubletilde\"\>", "]"}]}], ",", 
   RowBox[{"845", "\[Rule]", 
    RowBox[{"CombineLeft", "[", "\<\"\\\\spreadlips\"\>", "]"}]}], ",", 
   RowBox[{"846", "\[Rule]", 
    RowBox[{"CombineLeft", "[", "\<\"\\\\whistle\"\>", "]"}]}], ",", 
   RowBox[{"849", "\[Rule]", 
    RowBox[{"CombineLeft", "[", "\<\"\\\\|(\"\>", "]"}]}], ",", 
   RowBox[{"852", "\[Rule]", 
    RowBox[{"CombineLeft", "[", "\<\"\\\\sublptr\"\>", "]"}]}], ",", 
   RowBox[{"853", "\[Rule]", 
    RowBox[{"CombineLeft", "[", "\<\"\\\\subrptr\"\>", "]"}]}], ",", 
   RowBox[{"860", "\[Rule]", 
    RowBox[{"CombineBoth", "[", "\<\"\\\\t*\"\>", "]"}]}], ",", 
   RowBox[{"865", "\[Rule]", 
    RowBox[{"CombineBoth", "[", "\<\"\\\\t\"\>", "]"}]}], ",", 
   RowBox[{"866", "\[Rule]", 
    RowBox[{"CombineBoth", "[", "\<\"\\\\sliding\"\>", "]"}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.868270809781159*^9, 3.8682708994125566`*^9, {3.868270936708993*^9, 
   3.86827095596025*^9}, {3.868270999184209*^9, 3.8682710569088783`*^9}, 
   3.8682711162893467`*^9, {3.868271232044129*^9, 3.868271328063032*^9}, 
   3.868271611824288*^9, 3.86831087672788*^9, 3.8683237389258623`*^9},
 CellLabel->"Out[90]=",ExpressionUUID->"09ac4eca-1745-4094-ad7d-136745ee5d77"]
}, Closed]],

Cell[BoxData[
 RowBox[{
  RowBox[{
  "test", " ", "=", " ", 
   "\"\<do\:0303\:02d1\:02e9 \:0283ida\:02d1\:02e5\:02e9 | \:0272e\:02e7 t\
\:0361s\:02b0\:0289\:02e5 mu\:02d0\:0272i\:02d1\:02e5\:02e9 t\:0361s\:02b0i\
\:02d1\:02e5\:02e9 \:0294owvis\:02e7 t\:0361s\:02b0\:0289j\:02e7 mowr\:0289\
\:0303\:02d1\:02e9 le\:02d1\:02e9 dud\:0320\:0361\:0292i\:02d0\:02e7\:02e5 | \
\:0272i\:02e5 nu\:02d0\:0292e\:02d0\:02e7\:02e5 t\:02b0u\:0292e\:02d0\:02e7\
\:02e5 t\:0320\:0361\:0283\:02b0i\:02e7 | fi\:0283e\:02d0\:02e7\:02e7 \
ra\:02d0k\:025bj\:02e5 but\:0320\:0361\:0283i\:02e5 \:0294ub\:02e7 | \
fi\:0283e\:02d0\:02e7\:02e7 muws\:0289\:02d0\:02e7\:02e5 ra\:02d0k\:025bj\
\:02e5 \:0272e\:02e5 \:2016\>\""}], ";"}]], "Code",
 CellChangeTimes->{{3.868271334571501*^9, 3.868271341907655*^9}, 
   3.8683245992154903`*^9},
 CellLabel->
  "In[113]:=",ExpressionUUID->"00b3c87b-177f-459c-8dd2-430d70417ce8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Catenate", "@", 
   RowBox[{"ToCharacterCode", "@", 
    RowBox[{"Characters", "@", "test"}]}]}], "===", 
  RowBox[{"ToCharacterCode", "@", "test"}]}]], "Code",
 CellChangeTimes->{{3.868271343385686*^9, 3.868271403536701*^9}},
 CellLabel->
  "In[260]:=",ExpressionUUID->"0c6bfdea-3b7a-4772-8f90-9836cfa60dba"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.8682713599134912`*^9, 3.868271404491198*^9}},
 CellLabel->
  "Out[260]=",ExpressionUUID->"19732f82-7b1b-4d25-a268-aebe4b6d6b8c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FromCharacterCode", "@", 
  RowBox[{"{", 
   RowBox[{"108", ",", "820"}], "}"}]}]], "Code",
 CellChangeTimes->{{3.868324797490426*^9, 3.86832480214487*^9}},
 CellLabel->
  "In[130]:=",ExpressionUUID->"95355319-d14d-4354-b773-074c58b37116"],

Cell[BoxData["\<\"l\:0334\"\>"], "Output",
 CellChangeTimes->{3.8683248023172693`*^9},
 CellLabel->
  "Out[130]=",ExpressionUUID->"8583e84f-931f-45f3-be9d-7e7ce699b8a3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToCharacterCode", "@", "\"\< \\t\\n\>\""}]], "Code",
 CellChangeTimes->{{3.8683239067939177`*^9, 3.8683239100464897`*^9}, {
  3.868324318848871*^9, 3.86832432186283*^9}, {3.8683246668700314`*^9, 
  3.868324685121875*^9}},
 CellLabel->
  "In[119]:=",ExpressionUUID->"394b2e42-b022-425b-a553-985164abab7f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"32", ",", "9", ",", "10"}], "}"}]], "Output",
 CellChangeTimes->{
  3.868323910202786*^9, {3.868324672871073*^9, 3.8683246853546743`*^9}},
 CellLabel->
  "Out[119]=",ExpressionUUID->"4dc44e05-073c-4c18-9144-f9bdfa8de69b"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"$CatenateMode", " ", "=", " ", "\"\<Strict\>\""}], ";"}]], "Code",
 CellChangeTimes->{{3.868325851502533*^9, 3.868325853016018*^9}},
 CellLabel->
  "In[151]:=",ExpressionUUID->"8b715fbc-0f58-4a7e-bcfd-d64f75bd7528"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"ApplyMacro", "[", "cs_", "]"}], "[", "content_", "]"}], " ", ":=",
   " ", 
  RowBox[{
  "cs", "<>", "\"\<{\>\"", "<>", "content", "<>", "\"\<}\>\""}]}], "\n", 
 RowBox[{
  RowBox[{"CatenateTokens", "[", "list_List", "]"}], " ", ":=", " ", 
  RowBox[{"Switch", "[", 
   RowBox[{
   "$CatenateMode", ",", "\n", "\t", "\"\<Strict\>\"", ",", "\n", "\t\t", 
    RowBox[{"\"\<{\>\"", "<>", 
     RowBox[{"StringRiffle", "[", 
      RowBox[{
       RowBox[{"First", "/@", "list"}], ",", " ", "\"\<}{\>\""}], "]"}], 
     "<>", "\"\<}\>\""}], ",", "\n", "\t", "_", ",", "\n", "\t\t", 
    RowBox[{"Throw", "[", "\"\<Not Implemented\>\"", "]"}]}], "\n", 
   "]"}]}]}], "Code",
 CellChangeTimes->{{3.868325659357811*^9, 3.8683256629973183`*^9}, {
  3.868325697295561*^9, 3.868325913146392*^9}, {3.868325962894558*^9, 
  3.868325963195434*^9}},
 CellLabel->
  "In[154]:=",ExpressionUUID->"0f14e423-4ff2-4df6-b6f6-5893c7a3f99d"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Replace", "[", 
    RowBox[{"Join", "[", "\n", "\t", 
     RowBox[{
     "letters", ",", "\n", "\t", "marks", ",", "\n", "\t", "combinators", ",",
       "\n", "\t", 
      RowBox[{"{", "\n", "\t\t", 
       RowBox[{
        RowBox[{"l_", " ", ":>", " ", 
         RowBox[{
          RowBox[{"Letter", "@", 
           RowBox[{"FromCharacterCode", "@", "l"}]}], " ", "/;", " ", 
          RowBox[{"97", "<=", "l", "<=", "122"}]}]}], ",", "\n", "\t\t", 
        RowBox[{
         RowBox[{"s", ":", 
          RowBox[{"9", "|", "10", "|", "32"}]}], " ", ":>", " ", 
         RowBox[{"Mark", "@", 
          RowBox[{"FromCharacterCode", "@", "s"}]}]}], ",", "\n", "\t\t", 
        RowBox[{"c_", ":>", 
         RowBox[{"Unknown", "@", 
          RowBox[{"FromCharacterCode", "@", "c"}]}]}]}], "\n", "\t", "}"}]}], 
     "\n", "]"}], "]"}], "/@", 
   RowBox[{"ToCharacterCode", "@", "test"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"SequenceReplace", "[", "groups", "]"}], "@", "%"}], ";"}], "\n", 
 RowBox[{"FixedPoint", "[", "\n", "\t", 
  RowBox[{
   RowBox[{"SequenceReplace", "[", 
    RowBox[{"{", "\n", "\t\t", 
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"Letter", "|", "Combined"}], ")"}], "@", "l_"}], ",", " ", 
         
         RowBox[{"CombineLeft", "@", "cl_"}]}], "}"}], " ", ":>", " ", 
       RowBox[{"Combined", "@", 
        RowBox[{
         RowBox[{"ApplyMacro", "[", "cl", "]"}], "[", "l", "]"}]}]}], ",", 
      "\n", "\t\t", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"l", ":", 
          RowBox[{"(", 
           RowBox[{"_Letter", "|", "_Combined"}], ")"}]}], ",", " ", 
         "lm___Mark", ",", " ", 
         RowBox[{"CombineBoth", "@", "clr_"}], ",", " ", "rm___Mark", ",", 
         " ", 
         RowBox[{"r", ":", 
          RowBox[{"(", 
           RowBox[{"_Letter", "|", "_Combined"}], ")"}]}]}], "}"}], " ", ":>",
        "\n", "\t\t\t", 
       RowBox[{"Combined", "@", 
        RowBox[{
         RowBox[{"ApplyMacro", "[", "clr", "]"}], "@", 
         RowBox[{"CatenateTokens", "@", 
          RowBox[{"{", 
           RowBox[{"l", ",", " ", "lm", ",", " ", "rm", ",", " ", "r"}], 
           "}"}]}]}]}]}]}], "\n", "\t", "}"}], "]"}], "\n", ",", " ", "%"}], 
  "]"}], "\n", 
 RowBox[{"CatenateTokens", "@", "%"}]}], "Code",
 CellChangeTimes->{{3.8682714187002296`*^9, 3.868271481364448*^9}, {
  3.8683109192851267`*^9, 3.8683109286530848`*^9}, {3.8683109713714743`*^9, 
  3.8683110358419333`*^9}, {3.868323802358342*^9, 3.868323848857563*^9}, {
  3.8683238837081957`*^9, 3.8683239409907293`*^9}, {3.868323976273994*^9, 
  3.868323997959731*^9}, {3.868324639838914*^9, 3.8683246627082443`*^9}, {
  3.868324717170411*^9, 3.868324762967346*^9}, {3.868324825185548*^9, 
  3.868325045144202*^9}, {3.868325476723892*^9, 3.868325586557613*^9}, {
  3.868325625103652*^9, 3.868325629977894*^9}, {3.868325892903324*^9, 
  3.868325895064787*^9}, {3.868325933736671*^9, 3.8683259757318068`*^9}, {
  3.868326018920656*^9, 3.868326033589365*^9}, {3.8683260654941893`*^9, 
  3.868326076904792*^9}, {3.868326107089904*^9, 3.8683261347957277`*^9}},
 CellLabel->
  "In[172]:=",ExpressionUUID->"10f154d4-3701-45f5-a43e-9f812ccdb634"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Letter", "[", "\<\"d\"\>", "]"}], ",", 
   RowBox[{"Combined", "[", "\<\"\\\\~{o}\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\";\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\"\\\\tone{11}\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\" \"\>", "]"}], ",", 
   RowBox[{"Letter", "[", "\<\"S\"\>", "]"}], ",", 
   RowBox[{"Letter", "[", "\<\"i\"\>", "]"}], ",", 
   RowBox[{"Letter", "[", "\<\"d\"\>", "]"}], ",", 
   RowBox[{"Letter", "[", "\<\"a\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\";\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\"\\\\tone{55}\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\"\\\\tone{11}\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\" \"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\"\\\\textvertline\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\" \"\>", "]"}], ",", 
   RowBox[{"Letter", "[", "\<\"\\\\textltailn\"\>", "]"}], ",", 
   RowBox[{"Letter", "[", "\<\"e\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\"\\\\tone{33}\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\" \"\>", "]"}], ",", 
   RowBox[{"Combined", "[", "\<\"\\\\t{{t}{s}}\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\"\\\\super h\"\>", "]"}], ",", 
   RowBox[{"Letter", "[", "\<\"0\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\"\\\\tone{55}\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\" \"\>", "]"}], ",", 
   RowBox[{"Letter", "[", "\<\"m\"\>", "]"}], ",", 
   RowBox[{"Letter", "[", "\<\"u\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\":\"\>", "]"}], ",", 
   RowBox[{"Letter", "[", "\<\"\\\\textltailn\"\>", "]"}], ",", 
   RowBox[{"Letter", "[", "\<\"i\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\";\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\"\\\\tone{55}\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\"\\\\tone{11}\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\" \"\>", "]"}], ",", 
   RowBox[{"Combined", "[", "\<\"\\\\t{{t}{s}}\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\"\\\\super h\"\>", "]"}], ",", 
   RowBox[{"Letter", "[", "\<\"i\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\";\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\"\\\\tone{55}\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\"\\\\tone{11}\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\" \"\>", "]"}], ",", 
   RowBox[{"Letter", "[", "\<\"P\"\>", "]"}], ",", 
   RowBox[{"Letter", "[", "\<\"o\"\>", "]"}], ",", 
   RowBox[{"Letter", "[", "\<\"w\"\>", "]"}], ",", 
   RowBox[{"Letter", "[", "\<\"v\"\>", "]"}], ",", 
   RowBox[{"Letter", "[", "\<\"i\"\>", "]"}], ",", 
   RowBox[{"Letter", "[", "\<\"s\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\"\\\\tone{33}\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\" \"\>", "]"}], ",", 
   RowBox[{"Combined", "[", "\<\"\\\\t{{t}{s}}\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\"\\\\super h\"\>", "]"}], ",", 
   RowBox[{"Letter", "[", "\<\"0\"\>", "]"}], ",", 
   RowBox[{"Letter", "[", "\<\"j\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\"\\\\tone{33}\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\" \"\>", "]"}], ",", 
   RowBox[{"Letter", "[", "\<\"m\"\>", "]"}], ",", 
   RowBox[{"Letter", "[", "\<\"o\"\>", "]"}], ",", 
   RowBox[{"Letter", "[", "\<\"w\"\>", "]"}], ",", 
   RowBox[{"Letter", "[", "\<\"r\"\>", "]"}], ",", 
   RowBox[{"Combined", "[", "\<\"\\\\~{0}\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\";\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\"\\\\tone{11}\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\" \"\>", "]"}], ",", 
   RowBox[{"Letter", "[", "\<\"l\"\>", "]"}], ",", 
   RowBox[{"Letter", "[", "\<\"e\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\";\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\"\\\\tone{11}\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\" \"\>", "]"}], ",", 
   RowBox[{"Letter", "[", "\<\"d\"\>", "]"}], ",", 
   RowBox[{"Letter", "[", "\<\"u\"\>", "]"}], ",", 
   RowBox[{"Combined", "[", "\<\"\\\\t{{\\\\=*{d}}{Z}}\"\>", "]"}], ",", 
   RowBox[{"Letter", "[", "\<\"i\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\":\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\"\\\\tone{33}\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\"\\\\tone{55}\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\" \"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\"\\\\textvertline\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\" \"\>", "]"}], ",", 
   RowBox[{"Letter", "[", "\<\"\\\\textltailn\"\>", "]"}], ",", 
   RowBox[{"Letter", "[", "\<\"i\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\"\\\\tone{55}\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\" \"\>", "]"}], ",", 
   RowBox[{"Letter", "[", "\<\"n\"\>", "]"}], ",", 
   RowBox[{"Letter", "[", "\<\"u\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\":\"\>", "]"}], ",", 
   RowBox[{"Letter", "[", "\<\"Z\"\>", "]"}], ",", 
   RowBox[{"Letter", "[", "\<\"e\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\":\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\"\\\\tone{33}\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\"\\\\tone{55}\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\" \"\>", "]"}], ",", 
   RowBox[{"Letter", "[", "\<\"t\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\"\\\\super h\"\>", "]"}], ",", 
   RowBox[{"Letter", "[", "\<\"u\"\>", "]"}], ",", 
   RowBox[{"Letter", "[", "\<\"Z\"\>", "]"}], ",", 
   RowBox[{"Letter", "[", "\<\"e\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\":\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\"\\\\tone{33}\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\"\\\\tone{55}\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\" \"\>", "]"}], ",", 
   RowBox[{"Combined", "[", "\<\"\\\\t{{\\\\=*{t}}{S}}\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\"\\\\super h\"\>", "]"}], ",", 
   RowBox[{"Letter", "[", "\<\"i\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\"\\\\tone{33}\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\" \"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\"\\\\textvertline\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\" \"\>", "]"}], ",", 
   RowBox[{"Letter", "[", "\<\"f\"\>", "]"}], ",", 
   RowBox[{"Letter", "[", "\<\"i\"\>", "]"}], ",", 
   RowBox[{"Letter", "[", "\<\"S\"\>", "]"}], ",", 
   RowBox[{"Letter", "[", "\<\"e\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\":\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\"\\\\tone{33}\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\"\\\\tone{33}\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\" \"\>", "]"}], ",", 
   RowBox[{"Letter", "[", "\<\"r\"\>", "]"}], ",", 
   RowBox[{"Letter", "[", "\<\"a\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\":\"\>", "]"}], ",", 
   RowBox[{"Letter", "[", "\<\"k\"\>", "]"}], ",", 
   RowBox[{"Letter", "[", "\<\"E\"\>", "]"}], ",", 
   RowBox[{"Letter", "[", "\<\"j\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\"\\\\tone{55}\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\" \"\>", "]"}], ",", 
   RowBox[{"Letter", "[", "\<\"b\"\>", "]"}], ",", 
   RowBox[{"Letter", "[", "\<\"u\"\>", "]"}], ",", 
   RowBox[{"Combined", "[", "\<\"\\\\t{{\\\\=*{t}}{S}}\"\>", "]"}], ",", 
   RowBox[{"Letter", "[", "\<\"i\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\"\\\\tone{55}\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\" \"\>", "]"}], ",", 
   RowBox[{"Letter", "[", "\<\"P\"\>", "]"}], ",", 
   RowBox[{"Letter", "[", "\<\"u\"\>", "]"}], ",", 
   RowBox[{"Letter", "[", "\<\"b\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\"\\\\tone{33}\"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\" \"\>", "]"}], ",", 
   RowBox[{"Mark", "[", "\<\"\\\\textvertline\"\>", "]"}], ",",