11 my ($name, $num, $rest) = /^(\w+) \((\d+)\)(.*)/;
13 next if !length $rest;
14 for my $t ($rest =~ /(\w+)/g) {
15 push @{ $above{$name} }, $t;
26 if !exists $above{$node};
30 for my $ab (@{ $above{$node} }) {
36 my @sizes = sort { $sizes{$a} <=> $sizes{$b} } keys %sizes;
38 return $sum + $all{$node};
40 say $all{$nodes{$sizes[0]}} + $sizes[1]-$sizes[0];