{
  $s=eval join'+', @d = grep !($n%$_), 1..++$n-1;
  eval { w(@d, $n) if $s > $n};
  print $n,$/ if $@ =~ /!/;
  redo
}

sub w{
  my $s = pop || die;
  my $t = pop || die '!';
  	eval { w( @_, $s-$t) },
  	$@ =~ /!/ || die
  		if $t <= $s;
  w( @_, $s)
}