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