#!/usr/bin/perl -w
use strict;

sub ipart {
    my( @a, $n )= @_;
    while(  $n++, 0 == --$a[$#a]  ){
        $n += pop @a;
        return   if  ! @a;
    }
    do {
        push @a, @a && $a[$#a] < $n ? $a[$#a] : $n;
        $n -= $a[$#a];
    } while(  0 < $n  );
    return @a;
}

sub ip {
my(@a,$n)=@_;$n+=shift@a while$n++,@a&&!--$a[0];
{@a||last;@a=($a[0]<$n?$a[0]:$n,@a);($n-=$a[0])&&redo}@a
}

for(  @ARGV  ) {
    print "$_:\n";
    my @p= $_;
    do {
        print "  [",join(",",@p),"]\n";
    } while(  @p= ipart( @p )  );
    print "$_:\n";
    @p= $_;
    do {
        print "  [",join(",",@p),"]\n";
    } while(  @p= ip( @p )  );
}