var
  s : string;
  i : integer;
begin
  s := {$I %LINE%};
  i := {$I %LINENUM%}
end.