\documentclass{ppex}
\nonstopmode
\usepackage [all,arc,dvips]{xy}
\pagestyle{empty}
\setlength\textwidth{183.0pt}
\begin{document}
\ResetPreambleCommands
\ReadyForTheFray
\usepackage [all,arc,dvips]{xy}
\[\begin{xy} /r12mm/:
(0,0)*@{*}="c",*++++!R{c}
,(1.2,.8)*+[F]@{+}="p"
,*++!LD{p},"p";"c"**@{--}
,{\ellipse<>{}}
,{\ellipse(0.8){}}
,0;(-1,1)::
,{\ar@{.>} 0;(1,0)}
,{\ar@{.>} 0;(0,1)}
,"p";"c",{\ellipse(.8){--}}
,{\ellipse<3mm>{=}}
\end{xy}\]
\end{document}
