function res =h0thfib(t)

r = 1;

for k = 1:1000
    r = r*(1+exp(-2*i*t/(5^k))+exp(-4*i*t/(5^k)))/3;
end

res = r;

end

