var
st:array[0..10000]of char;
s,s1:string;
g,g1,i,j,z:longint;
t:char;
begin
z:=0;
readln(s);
readln(s1);
g:=length(s);
g1:=length(s1);
for i:=1 to g do
for j:=1 to g1 do if s[i]=s1[j] then
begin
inc(z);
st[z]:=s[i];
break;
end;
for i:=1 to z-1 do for j:=i+1 to z do if st[i]>st[j] then
begin
t:=st[i];
st[i]:=st[j];
st[j]:=t;
end;
st[z+1]:='-';
for i:=1 to z do i st[i]<>st[i+1] then write(st[i],' ');
end.