lex : string list -> lexcode list
# lex(explode "if p+1=2 then x + 1 else y - 1");;
val it : lexcode list =
[Resword "if"; Ident "p"; Ident "+"; Ident "1"; Ident "="; Ident "2";
Resword "then"; Ident "x"; Ident "+"; Ident "1"; Resword "else";
Ident "y"; Ident "-"; Ident "1"]