Create forth.f