isprefix([],X)
isprefix([H|T],[H|Z]) :- isprefix(T,Z)
