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