bildIntegrate<- function (li=-4,ls=4, epsabs=.Machine$double.eps^.25,
epsrel=.Machine$double.eps^.25,limit=100,key=6,lig=-4,lsg=4) 
{
    list(li=li, ls=ls, epsabs=epsabs, epsrel=epsrel, limit=limit, key=key, lig=lig, lsg=lsg )
}