sub r{$x-$p[$x]?r($x=$p[$x]):$x}sub f{$a[$_]==$a[$x=$_+"@_ 1"]&&($p[$u=r$x=$_]=r)==$u}$/=<>;@a=glob<>;print!grep(($_+1)%$/&&f||f($/),@i=@p=0..$#a)&&im,possible