map$0%$_||\$$0[$#$_+$&+$'],--$0..-/./for 1..$;print@{-$_}.$/for<>