my naive forth implementation