sub leak {
  my $factorial_sub_ref;

  $factorial_sub_ref = sub {
    my ($number) = @_;
    if ($number < 2) { return 1; }
    return($number + &$factorial_sub_ref($number - 1));
  };

  return 0;
}