$n=<>; $_=<>;chop; $q=y/Q//; $s=$q?substr$_,0,$n/$q:$/; print $s x $q eq $_ ? $s : -1;