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