sub maybe_functional {
  return unless @_;
  my $n = int rand @_;
  my @arr = ( @_[$n .. $#_], @_[0 .. $n - 1] );
  return ( $arr[ 0 ], maybe_functional( @arr[ 1 .. $#arr ] ) );
}