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