O13-68
> restart:
> w:=x+y*t+z*t^2;

                                           2
                         w := x + y t + z t

> v:=ln(t)-w;

                                               2
                     v := ln(t) - x - y t - z t

> sys:={seq(int(v*t^k,t=0..1),k=0..2)};

  sys := {-1 - x - 1/2 y - 1/3 z, -1/4 - 1/2 x - 1/3 y - 1/4 z,

        -1/9 - 1/3 x - 1/4 y - 1/5 z}

> s:=solve(sys);

                   s := {y = 8, z = -5, x = -10/3}

> p:=subs(s,w);

                                             2
                       p := -10/3 + 8 t - 5 t

> plot([p,ln(t)],t=0..1);

> 
>