Put[ "pi_result.txt" ]
N[ Pi, 1000 ] >>"pi_result.txt"
Quit[ ]