a:array[1..1000] of longint;
b : integer;
begin 
while not eof do begin
readln(a[b]);
writeln(a[b]);
end;
end.