let signal_add_one_memory = fun s -> let new_signal = factory_add_memory (signal_fun s) 1 in (frequency s, new_signal)