{ This is a simple Pascal program to test the stand-alone lexer. }
program
  var i,j,k: integer;
  var x,y: real;
begin
   if (i > 10) then
      x := i + j * k / y;
   else
      y := i + j * k / x;
end.