function fold([array]$a, [scriptblock]$func) {
  $x = $a[0]
  for ($i=1; $i -lt $a.length; $i++) {
    $x = & $func $x $a[$i]
  }
  $x
}