P0=0.1

P=g(m.P0)
i=3
DO WHILE ABS(m.P-m.P0)>EPSOLIT AND m.i>0
	i = m.i - 1
	P0=m.P
	P=g(m.P0)
ENDDO
? m.P,m.i