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