; (let code = "abc[0]" in Test.case code ~code ~out_lexing:[ID "abc"; LBRACK; INT 0; RBRACK])
; (let code = "abc[0] := foo()" in Test.case code ~code
; (let code = "abc[0]" in Test.case code ~code ~out_lexing:[ID "abc"; LBRACK; INT 0; RBRACK])
; (let code = "abc[0] := foo()" in Test.case code ~code