sink("outfile.txt")
print(rnorm(10))
q(save="yes")