let aitken_seki_1024 = fun (a:Num.num array) (b:Num.num array) (c:Num.num array) ->


(** alternative definition let numer = det_2_1024 | [| a ; b |] ; [| b ; c |] | and denom = minus_1024 ( plus_1024 a c ) ( mult_1024 sci_2 b ) in div_1024 numer denom ;; *)


 let d = minus_1024 b a
 and e = minus_1024 c b in
  let f = mult_1024 d e
  and g = minus_1024 d e in
   let h = div_1024 f g in
    plus_1024 b h