($n,$s)=glob<>;
$s<$_||($s-=$_,unshift@a,$_)for reverse 1..$n;
print@a."\n@a";