\begin{Schunk}
\begin{Sinput}
 x <- c(1,2,3)
 y <- c(4,5,6) 
 x * y
\end{Sinput}
\begin{Soutput}
[1]  4 10 18
\end{Soutput}
\end{Schunk}
