seinst4 - Einstein function E4(x)

function seinst4 (x) 
function seinst4f(x)

Given a value $x$ this function computes the fourth Einstein function

E (x)= --x---log(1 -e-x) 4 ex-1