sinkplot function

Send textual R output to a graphics device