sub marine($string, \%hash)