pmusic :: PU Music
pmusic
  = startPt $
    xpWrap (forward,backward) $                              -- Convert [MXMeasElm] to Music
    xpWrap (concat,undefined) $ xpList $ xpElem "measure" $  -- Convert MXMeasElm   to [MXMeasElm]
    xpList $ (xpickle :: PU MXMeasElm)                       -- Pickle
  where startPt a = xpElem "score-partwise" $                -- Select
                    keepElem "part"    $ xpElem "part"    $  -- Fitler, select
                    keepElem "measure" $ a                   -- Filter
pmusic :: PU Music
pmusic
  = startPt $
    xpWrap (forward,backward) $                              -- Convert [MXMeasElm] to Music
    xpWrap (concat,undefined) $ xpList $ xpElem "measure" $  -- Convert MXMeasElm   to [MXMeasElm]
    xpList $ (xpickle :: PU MXMeasElm)                       -- Pickle
  where startPt a = xpElem "score-partwise" $                -- Select
                    keepElem "part"    $ xpElem "part"    $  -- Fitler, select
                    keepElem "measure" $ a                   -- Filter
pmusic
  = startPt $
    xpWrap (forward,backward) $                              -- Convert [MXMeasElm] to Music
    xpWrap (concat,undefined) $ xpList $ xpElem "measure" $  -- Convert MXMeasElm   to [MXMeasElm]
    xpList $ (xpickle :: PU MXMeasElm)                       -- Pickle
  where startPt a = xpElem "score-partwise" $                -- Select
                    keepElem "part"    $ xpElem "part"    $  -- Fitler, select
                    keepElem "measure" $ a                   -- Filter