function myln(x1)
variable x=x1-1,a=0
for variable n=1 to 100 step 1
a=a+(-1)**(n-1)/n*x**(n)
next
return a
endf