main = do
  d <- runX $ xunpickleDocument pmusic
    [withValidate no
    -- ,withTrace 2
    ,withRemoveWS yes
    ,withPreserveComment no] "demo-score.xml"             
    -- >>> arrIO (\x -> do {print x; return x})
  let d2 = postProcessing d                    
  mapM print d2
  return ()
  where postProcessing = id.head -- fixPositions 

----------------------------------------------------------------------------------------------------                      
-- MusicXml Pickler functions
----------------------------------------------------------------------------------------------------
main = do
  d <- runX $ xunpickleDocument pmusic
    [withValidate no
    -- ,withTrace 2
    ,withRemoveWS yes
    ,withPreserveComment no] "demo-score.xml"             
    -- >>> arrIO (\x -> do {print x; return x})
  let d2 = postProcessing d                    
  mapM print d2
  return ()
  where postProcessing = id.head -- fixPositions 

----------------------------------------------------------------------------------------------------                      
-- MusicXml Pickler functions
----------------------------------------------------------------------------------------------------
main = do
  d <- runX $ xunpickleDocument pmusic
    [withValidate no
    -- ,withTrace 2
    ,withRemoveWS yes
    ,withPreserveComment no] "demo-score.xml"             
    -- >>> arrIO (\x -> do {print x; return x})
  let d2 = postProcessing d                    
  mapM print d2
  return ()
  where postProcessing = id.head -- fixPositions 

----------------------------------------------------------------------------------------------------                      
-- MusicXml Pickler functions
----------------------------------------------------------------------------------------------------