Slice(Project(BGP( ?x . ?x ?padre . ?x ?titulo), {?padre, ?titulo, ?x}), 0, 2000)