#!/bin/sh
if test $# -ne 1 
then
	exit 1
fi
ex -s $1 <<EOF
/begin{mpp}/s//begin{current}/
/end{mpp}/s//end{current}/
/begin{current}/+,/end{current}/-w! x.mpp
!mpp -e x.mpp
/begin{current}/- 
a
\begin{music}
% File x.mpp was autmatically created by dodoc
% From the music below
.
r x.tex
a
\end{music}

which was coded as:

.
/begin{current}/s//begin{verbatim}/
/end{current}/s//end{verbatim}/
 1
w