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