fixed euler4 for gforth