$n=<>;for$i(1..$n){print abs($i-$_)+1,$_-$n?" ":"\n"for 1..$n}