convMeap :: Meap.MEAP -> [(Unit, [Feature])]
convMeap meap = zip us (map (\v -> map (flip convFeature v) fs) (meapFrames meap))
    where
        fs = Meap.features meap
        us = map convUnit (Meap.segments_l meap)
convMeap :: Meap.MEAP -> [(Unit, [Feature])]
convMeap meap = zip us (map (\v -> map (flip convFeature v) fs) (meapFrames meap))
    where
        fs = Meap.features meap
        us = map convUnit (Meap.segments_l meap)
convMeap meap = zip us (map (\v -> map (flip convFeature v) fs) (meapFrames meap))
    where
        fs = Meap.features meap
        us = map convUnit (Meap.segments_l meap)