FourierTransform[FourierTransform[g[x],x,z],z,x]