$n=<>; @a=glob<>; $k=$n-1; @r=map{ while($k>=0&&$a[$k]<$_){ --$k; } $k+1; }1..$a[0]; print"@r";