sub fibonacci {
  my $n = shift;
  return 0+($n==1) if $n < 2;

  state @mem;

  $mem[$n] //= fibonacci($n-1) + fibonacci($n-2);
}