seinst1 - Einstein function E1(x)

function seinst1 (x) 
function seinst1f(x)

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

x2ex E1(x)=(ex-1)2