sub fibonacci {
   my ($n) = @_;
   return 0 if $n == 0;
   return 1 if $n == 1;
   return sum map $_->join(),
      async { fibonacci($n-2) },
      async { fibonacci($n-1) };
}