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