$n=<>; @x=glob<>; @y=glob<>; $d=2e6; for(0..$n-1){ $a=$x[$_]+$y[$_]; $d=$d<$a?$d:$a; } print $d,$/; print 0,$/; for(0..$n-1){ print $-=$y[$_]-$d,$/; } print $d,$/;