b=a=2*$0+1{for(i=1;gsub($b=$0=e,0)>i;print)$i=i++*--a}1