idl << EOF
.r time_series
.r plot_result
wait,10
EOF