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