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