var i,j,an,x,t,n,k,m:longint;

ans,le,r,yn:array[-5..100000]of longint;

bo:array[1..100000]of boolean;

begin

readln(n,k,m);

fillchar(bo,sizeof(bo),true);

for i:=1 to m do

begin

readln(le[i],r[i],yn[i]);

if yn[i]=0 then begin

for j:=le[i] to r[i] do

bo[j]:=false;

end;

end;

for i:=1 to m do

if yn[i]=1 then begin

x:=0;

for j:=le[i] to r[i] do

if bo[j] then begin t:=j;inc(x);if x=2 then break;end;

if x=1 then begin inc(an);ans[an]:=t;end;

end;

if (an=0)or(an>k) then begin writeln('-1');halt;end;

for i:=1 to an do writeln(ans[i]); readln;readln;

end.

帮看下，怎么回事啊，，，一组都不过。。