sub flatten {
  my @flattened; # Will be in reverse order
  while (@_) {
    my $last = pop;
    if (UNIVERSAL::isa($last, "ARRAY")) {
      push @_, @$last;
    }
    else {
      push @flattened, $last;
    }
  }
  return reverse @flattened;
}