Function mAscan($arr, $exp, $startAt, $dimensionToScan, optional $flags)
 dim $,$c,$cache[ubound($arr,$dimensionToScan)]
 $startAt=split($startAt)
 for $c=0 to ubound($arr,$dimensionToScan)
  $startAt[$dimensionToScan-1] = $c 
  $=execute("$$cache[$$c] = $$arr["+join($startAt,",")+"]")
 next
 $mAscan=ascan($cache,$exp,,,$flags)
Endfunction