Write
[channel, $expr_1$, $expr_2$, ...]stream = OpenWrite[]
Write[stream, 10 x + 15 y ^ 2]
Write[stream, 3 Sin[z]]
The stream must be closed in order to use the file again:
Close[stream];
stream = OpenRead[%];
ReadList[stream]
DeleteFile[Close[stream]];