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"]