fixed forth script
fixed forth script