($n,$k)=glob<>;
@x=glob<>;
@y=glob<>;
@x=map$x[$_]-$y[$_],@j=0..$n-1;
@i=sort{$x[$a]<=>$x[$b]}@j;
$r=A x$n.$/;
substr$r,$_,1,B for@i[0..$n-$k-1];
print$r;