var
f:file of byte;
i:byte;
c:boolean;
begin
c:=false;
assign(f,'two');
reset(f);
repeat
read(f,i);
if i=ord('.') then begin truncate(f) ; close(f); c:=true; end;
until c=true;
end.
var
f: file of char;
i: char;
begin
assign(f,'two');
reset(f);
repeat
read(f, i);
if i = '.' then begin
truncate(f)
end;
until (i = '.') or (eof(f));
close(f)
end.