printing a series of stem plots

[David Parkhurst <parkhurs@imap.iu.edu>]

I want to generate a series of different datasets to send to students in 
a stats class, so each group works with different data.  One of their 
assignments is to produce a stemplot (by hand), and I would like, as I 
generate the data, to print out a stemplot of each dataset for my 
teaching assistant to use in grading.
So, is there a way within a loop to create a dataset 
(x<-rlnorm(30,log(10),0.7)), then to stemplot that, and then to have 
that stemplot printed, or saved to a file?
Thanks for help.

Dave Parkhurst