test forth file