sub e{
#234567890123456789012345678901234567890123456789012
map{$e[$q-1]+=$e[$q]/$q,($e[$q]%=$q--).=0for
1..($q=@e);$e[0]=!print"@e"|0}@e=(1)x pop
}
e(1000);