\newenvironment{slist}{\noindent\rule{\textwidth}{1pt}\begin{list}{}{}\item[]}
{\end{list}\noindent\rule{\textwidth}{1pt} \stepcounter{example}}