\\ Session p. 22

func(t) = if(t==0,return(0),\
     z = t+I*t*(1-t); real(z^(I/z-1)*(1+I*(1-2*t))))
intnum(t=0,1,func(t))