chop($~=<>);print$~x$_,$/for sort{1}1..$~