let extract_rate = fun beam ->
          let rate_naive_list = List.map fst beam in
        let correct_rate r = 
                if r = 0 then 44100 
                else if r > 0 then r
                else raise (Evaluation_Error "Rec2")
        in
        let rate_list = List.map correct_rate rate_naive_list in
        rate_list