$n=<>; $_=<>;chop; $q=y/Q//; print $q && !/H|9/ && $n%$q==0 && ($s=substr$_,0,$n/$q) x $q eq $_ ? $s : -1;