map{//;$_>($c=$n-$'-$_)||print"$' $_ $c
"for$'..$n}1..($n=<>)