if ( substr(g,0,1) is "W" && substr(g,-2,1) is "S" ) {
rename(g,seaState);
group g : dump; non_alpha na;
}