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