function s(c,n,l,o,v){v=a[n++]
for(c||(O=o,L=l);v&&c>=0&l<L;o+=(o&&' ')+v)s(c,n,l++,o),c-=v}for(;a=readline(L=14,O='-').split(/\D/),c=a[0];print(O))s(c,2,0,'')