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