MODULE TBadOpen;
VAR x : ARRAY OF INTEGER;
BEGIN
END TBadOpen.