\begin{lstlisting}[language=Haskell]
  [x^2 | x <- [1..200], even x]
\end{lstlisting}