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