$N=<>;/ /,push@
$`,$'+!push@{$'+0},$`for<>;@q=(1,grep!($L[$_-1]=@$_-1&&$N),2..$N);push@q,grep{$L[$_-1]-=$-=$L[$_-1]-$L[$q-1]-1;$-}@$q while$q=shift@q;$,=$/;print@L