($N,$_,$K)=glob<>;$N-++$_[$K]||--$N^$K--for 1..($_-=(@_=0..$K)*$K/2);print/-/|shift@_?-1:"@_"