($n,$k)=glob<>;
print$n>$k*2?-1:$n*2-$k,$/;
print$_*2-1,$",$_*2,$/for 1..$n-$k;
print$_,$",$_,$/for 1..$n;