let
beam_add_one_memory =
fun
beam
->
List
.map signal_add_one_memory beam