let make_beam = fun input ->
        let rate_list = fst input in
        let float_array_list = snd input in
        let value_array_list = 
                List.map (Array.map return_R) float_array_list in
        let fun_list = List.map Array.get value_array_list in
        let make_signal = fun rate -> fun f -> (rate, f) in
        let beam = List.map2 make_signal rate_list fun_list in
        beam