program p26752;
var a:array[1..1000000]of longint;i,j,k,n:longint;
begin
i:=0;
repeat
i:=i+1;
k:=i;
read(a[i]);
until a[i]<0;
readln(n);
for j:=1 to k-2 do
if n>=a[j] then
write(a[j],' ');
if n>=a[k-1] then writeln(a[k-1]);
end.
var a:array[1..1000000]of longint;i,j,k,n:longint;
begin
i:=0;
repeat
i:=i+1;
k:=i;
read(a[i]);
until a[i]<0;
readln(n);
for j:=1 to k-2 do
if n>=a[j] then
write(a[j],' ');
if n>=a[k-1] then writeln(a[k-1]);
end.