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