program p(input, output);
type
str = string[45];
pstr = ^str;
var t : text;
s : string[45];
ps : pstr;
begin
assign(t,'t.pas');
reset(t);
while not eof(t) do
begin
new(ps);
readln(t,ps^); writeln(ps^);
dispose(ps);
end;
end.