#!/usr/bin/perl -w
use strict;
use Algorithm::Loops qw(
        NestedLoops MapCarMin );
 
my @sum= shift || 100;
my @size= ( 100, 50, 20, 10, 5 );
@size= @ARGV   if  @ARGV;
my $tries= 0;
my $iter= NestedLoops(
    [ ( sub {
            my $n= $sum[@_]/$size[@_];
            ! $n        ? [] :
            @_ < $#size ? [ 0 .. $n ]
                        : [ $n .. int $n ];
    } ) x @size ],
    {
        OnlyWhen => sub {
            $tries++;
            not $sum[@_]=
                $sum[$#_] - $_[-1]*$size[$#_];
        },
    },
);
my @cnt;
my $seq= 0;
while(  @cnt= $iter->()  ) {
    printf "%d) %s\n", ++$seq, join ' + ',
        MapCarMin {
            !$_[0] ? () : join '*', @_
        } \@cnt, \@size;
}
print "($tries tries)\n";