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