let signal_check_frequency = fun s1 -> fun s2 ->
        let f1 = frequency s1 in
        let f2 = frequency s2 in
        check_frequency f1 f2