let
infix_lidents =
[
"asr"
;
"land"
;
"lor"
;
"lsl"
;
"lsr"
;
"lxor"
;
"mod"
;
"or"
]