let i = Seq.fold f 0.0f (Seq.map (fun a-> (float32 a)) si)
Since the purpose of the anonymous function passed to Seq.map is simply to call another function with the anonymous function’s argument, the anonymous function can be removed. It can be written more succinctly (and readably) as:
let i = Seq.fold f 0.0f (Seq.map float32 si)
]]>