let computing = fun f -> fun width -> fun length ->
        let container_float_array_array_array = 
                ref (Array.make length (Array.make width [||])) in
        let index = ref 0 in

        try
                while !index < length do
                        (!container_float_array_array_array).(!index) 
                                      <- (Array.map convert_back_R (f (!index)));
                        incr index;
                done;
                !container_float_array_array_array

        with x ->
                let error_message = 
                        match x with
                        |Convert_Error s -> "Convert_Error: " ^ s
                        |Value_operation s -> "Value_operation: " ^ s
                        |Signal_operation s -> "Signal_operation: " ^ s
                        |Beam_Matching_Error s -> "Beam_Matching_Error: " ^ s
                        |Evaluation_Error s -> "Evaluation_Error: " ^ s
                        |NotYetDone -> "NotYetDone"
                        |_ -> "Compute finished."
                in
                let () = print_endline error_message in
                Array.sub (!container_float_array_array_array) 0 !index