euler in forth