arnewurzel{ ; Arne Richter
init:
bool done = false
b = #pixel

loop:
a = @radikand / b
#z = (a+b) / 2
If abs (b-a) < @epsilon
 done = true
   else
 b = (a+b) / @quotient ; Parameter added to avoid all points to be
outside
endif

bailout:
done == false

default:
param @epsilon
default=(0.1,0)
endparam

param @quotient
default=(1,1)
endparam

param @radikand
default=(9,0)
endparam
}