use strict;
use warnings;

sub make_change {
  my $amount  = shift;
  return $amount ? () : [] unless @_;
  my $coin    = pop;
  my $n_coins = 0;
  my $base    = 0;
  my @ways;
  while ( $base <= $amount ) {
    push @ways, map [ @$_, [ $n_coins, $coin ] ],
                make_change( $amount - $base, @_ );
    $n_coins++;
    $base += $coin;
  }
  return @ways;
}

sub print_way {
  my $way = shift;
  print join ' + ', map "$_->[ 0 ] x $_->[ 1 ]", @$way;
  print $/;
}

print_way( $_ ) for make_change( @ARGV );