var a:array[1..99]of word;i,j,k,l,m,t,x:word;
begin
{$I-}repeat Inc(i);readln(a[i])until Ioresult<>0;
WriteLn(a[1]);
for j:=2to i-1do begin
m:=0;x:=a[j];
for k:=j+1to i-1 do if x-a[k]>9then begin m:=1;break end;
if m=1then for l:=j-1downto 1 do if x-a[l]>9then begin m:=2;break end;
if m=2then for t:=l to k do if a[t]>x then m:=3;
if m=2then WriteLn(x,'*') else WriteLn(x);
end end.