1 module split_string.SplitStringOCaml
2 syntax type char "char"
3 syntax val (=) "%1 = %2" prec 11 11 10
4 syntax type string_ "string"
5 syntax val length "String.length %1" prec 4 3
6 syntax val ([]) "%1.[%2]" prec 2 1 18
7 syntax val sub "String.sub %1 %2 (%3 - %2)" prec 4 3
8 syntax val sub "String.sub %1 %2 (%3 - %2)" prec 4 3