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