unit tbug840b;

interface
var i:longint;
implementation
end.