pascal: for i := 0 to 0 do writeln('what happens?');