blockToMan opts (Para inlines) = do
  contents <- liftM vcat $ mapM (wrapIfNeeded opts (inlineListToMan opts)) $
    splitSentences inlines
  return $ text ".PP" $$ contents 
blockToMan opts (Para inlines) = do
  contents <- liftM vcat $ mapM (wrapIfNeeded opts (inlineListToMan opts)) $
    splitSentences inlines
  return $ text ".PP" $$ contents 
blockToMan opts (Para inlines) = do
  contents <- liftM vcat $ mapM (wrapIfNeeded opts (inlineListToMan opts)) $
    splitSentences inlines
  return $ text ".PP" $$ contents 