let frequency s = fst s