let addarray (arr :float []) =
    let mutable sum = 0.0
    let rec loop n i =
        if i = n then
            sum = sum + 0.0
        else
            sum = sum + arr.[i]; loop n (i+1)
    loop (Array.length arr) 0; sum