Array.fold(fun x y-> x+ f y)0x0 arr

#if FX_RESHAPED_REFLECTION

letprogress=try System.Environment.GetEnvironmentVariable("FSharp_DebugSetFilePermissions")<>nullwith_->false

#if ENABLE_MONO_SUPPORT

if runningOnMonothen

letmonoPosix= Assembly.Load("Mono.Posix, Version=2.0.0.0, Culture=neutral, PublicKeyToken=0738eb9f132ed756")

if progressthen eprintf"loading type Mono.Unix.UnixFileInfo...\n"

letmonoUnixFileInfo= monoPosix.GetType("Mono.Unix.UnixFileSystemInfo")

letfileEntry= monoUnixFileInfo.InvokeMember("GetFileSystemEntry",(BindingFlags.InvokeMethod||| BindingFlags.Static||| BindingFlags.Public),null,null,[| box filename|],System.Globalization.CultureInfo.InvariantCulture)

letprevPermissions= monoUnixFileInfo.InvokeMember("get_FileAccessPermissions",(BindingFlags.InvokeMethod||| BindingFlags.Instance||| BindingFlags.Public),null, fileEntry,[||],System.Globalization.CultureInfo.InvariantCulture)|> unbox<int>

letfileEntry= monoUnixFileInfo.InvokeMember("GetFileSystemEntry",(BindingFlags.InvokeMethod||| BindingFlags.Static||| BindingFlags.Public),null,null,[| box filename|],CultureInfo.InvariantCulture)

letprevPermissions= monoUnixFileInfo.InvokeMember("get_FileAccessPermissions",(BindingFlags.InvokeMethod||| BindingFlags.Instance||| BindingFlags.Public),null, fileEntry,[||],CultureInfo.InvariantCulture)

letprevPermissionsValue= prevPermissions|> unbox<int>

letnewPermissionsValue= prevPermissionsValue|||0x000001ED

letnewPermissions= Enum.ToObject(prevPermissions.GetType(), newPermissionsValue)

monoUnixFileInfo.InvokeMember("set_FileAccessPermissions",(BindingFlags.InvokeMethod||| BindingFlags.Instance||| BindingFlags.Public),null, fileEntry,[|box(prevPermissions|||0x000001ED)|],System.Globalization.CultureInfo.InvariantCulture)|> ignore

monoUnixFileInfo.InvokeMember("set_FileAccessPermissions",(BindingFlags.InvokeMethod||| BindingFlags.Instance||| BindingFlags.Public),null, fileEntry,[|newPermissions|],CultureInfo.InvariantCulture)|> ignore

with e->

if progressthen eprintf"failure:%s...\n"(e.ToString())