MODULE tinyfor4 ;  

VAR
  v: INTEGER;
BEGIN
   FOR i := 0 TO v DO END
END tinyfor4.