sub main {
    chomp(my $N = <STDIN>);
    chomp(my $s = <STDIN>);
    my @s = split(//, $s);
    print solver($N,\@s);
}
main() unless caller;

sub solver {
    my ($N,$s) = @_;
    push(@$s, $s->[0]);
    my @a1 = qw{S S};
    my @a2 = qw{W W};
    my @a3 = qw{S W};
    my @a4 = qw{W S};
    for my $i(1 .. $N-1){
        if($s->[$i] eq 'o'){
            if($a1[$i] eq 'S' && $a1[$i-1] eq 'S') {
                $a1[$i+1] = 'S';
            }
            elsif($a1[$i] eq 'S' && $a1[$i-1] eq 'W'){
                $a1[$i+1] = 'W';
            }
            elsif($a1[$i] eq 'W' && $a1[$i-1] eq 'S'){
                $a1[$i+1] = 'W';
            }
            elsif($a1[$i] eq 'W' && $a1[$i-1] eq 'W'){
                $a1[$i+1] = 'S';
            }

            if($a2[$i] eq 'S' && $a2[$i-1] eq 'S') {
                $a2[$i+1] = 'S';
            }
            elsif($a2[$i] eq 'S' && $a2[$i-1] eq 'W'){
                $a2[$i+1] = 'W';
            }
            elsif($a2[$i] eq 'W' && $a2[$i-1] eq 'S'){
                $a2[$i+1] = 'W';
            }
            elsif($a2[$i] eq 'W' && $a2[$i-1] eq 'W'){
                $a2[$i+1] = 'S';
            }

            if($a3[$i] eq 'S' && $a3[$i-1] eq 'S') {
                $a3[$i+1] = 'S';
            }
            elsif($a3[$i] eq 'S' && $a3[$i-1] eq 'W'){
                $a3[$i+1] = 'W';
            }
            elsif($a3[$i] eq 'W' && $a3[$i-1] eq 'S'){
                $a3[$i+1] = 'W';
            }
            elsif($a3[$i] eq 'W' && $a3[$i-1] eq 'W'){
                $a3[$i+1] = 'S';
            }

            if($a4[$i] eq 'S' && $a4[$i-1] eq 'S') {
                $a4[$i+1] = 'S';
            }
            elsif($a4[$i] eq 'S' && $a4[$i-1] eq 'W'){
                $a4[$i+1] = 'W';
            }
            elsif($a4[$i] eq 'W' && $a4[$i-1] eq 'S'){
                $a4[$i+1] = 'W';
            }
            elsif($a4[$i] eq 'W' && $a4[$i-1] eq 'W'){
                $a4[$i+1] = 'S';
            }
        }
        elsif($s->[$i] eq 'x'){
            if($a1[$i] eq 'S' && $a1[$i-1] eq 'S') {
                $a1[$i+1] = 'W';
            }
            elsif($a1[$i] eq 'S' && $a1[$i-1] eq 'W'){
                $a1[$i+1] = 'S';
            }
            elsif($a1[$i] eq 'W' && $a1[$i-1] eq 'S'){
                $a1[$i+1] = 'S';
            }
            elsif($a1[$i] eq 'W' && $a1[$i-1] eq 'W'){
                $a1[$i+1] = 'W';
            }
            else {
                $a1 = 0;
            }

            if($a2[$i] eq 'S' && $a2[$i-1] eq 'S') {
                $a2[$i+1] = 'W';
            }
            elsif($a2[$i] eq 'S' && $a2[$i-1] eq 'W'){
                $a2[$i+1] = 'S';
            }
            elsif($a2[$i] eq 'W' && $a2[$i-1] eq 'S'){
                $a2[$i+1] = 'S';
            }
            elsif($a2[$i] eq 'W' && $a2[$i-1] eq 'W'){
                $a2[$i+1] = 'W';
            }
            else {
                $a2 = 0;
            }

            if($a3[$i] eq 'S' && $a3[$i-1] eq 'S') {
                $a3[$i+1] = 'W';
            }
            elsif($a3[$i] eq 'S' && $a3[$i-1] eq 'W'){
                $a3[$i+1] = 'S';
            }
            elsif($a3[$i] eq 'W' && $a3[$i-1] eq 'S'){
                $a3[$i+1] = 'S';
            }
            elsif($a3[$i] eq 'W' && $a3[$i-1] eq 'W'){
                $a3[$i+1] = 'W';
            }
            else {
                $a3 = 0;
            }

            if($a4[$i] eq 'S' && $a4[$i-1] eq 'S') {
                $a4[$i+1] = 'W';
            }
            elsif($a4[$i] eq 'S' && $a4[$i-1] eq 'W'){
                $a4[$i+1] = 'S';
            }
            elsif($a4[$i] eq 'W' && $a4[$i-1] eq 'S'){
                $a4[$i+1] = 'S';
            }
            elsif($a4[$i] eq 'W' && $a4[$i-1] eq 'W'){
                $a4[$i+1] = 'W';
            }
        }
    }
    if($a1[0] eq $a1[-1]){
        pop @a1;
        if($s->[0] eq 'o' && $a1[0] eq 'S' && $a1[-1] eq $a1[1]) {
            return join '', @a1;
        }
        elsif($s->[0] eq 'o' && $a1[0] eq 'W' && $a1[-1] ne $a1[1]) {
            return join '', @a1;
        }
        elsif($s->[0] eq 'x' && $a1[0] eq 'S' && $a1[-1] ne $a1[1]) {
            return join '', @a1;
        }
        elsif($s->[0] eq 'x' && $a1[0] eq 'W' && $a1[-1] eq $a1[1]) {
            return join '', @a1;
        }
    }
    if($a2[0] eq $a2[-1]){
        pop @a2;
        if($s->[0] eq 'o' && $a2[0] eq 'S' && $a2[-1] eq $a2[1]) {
            return join '', @a2;
        }
        elsif($s->[0] eq 'o' && $a2[0] eq 'W' && $a2[-1] ne $a2[1]) {
            return join '', @a2;
        }
        elsif($s->[0] eq 'x' && $a2[0] eq 'S' && $a2[-1] ne $a2[1]) {
            return join '', @a2;
        }
        elsif($s->[0] eq 'x' && $a2[0] eq 'W' && $a2[-1] eq $a2[1]) {
            return join '', @a2;
        }
    }
    if($a3[0] eq $a3[-1]){
        pop @a3;
        if($s->[0] eq 'o' && $a3[0] eq 'S' && $a3[-1] eq $a3[1]) {
            return join '', @a3;
        }
        elsif($s->[0] eq 'o' && $a3[0] eq 'W' && $a3[-1] ne $a3[1]) {
            return join '', @a3;
        }
        elsif($s->[0] eq 'x' && $a3[0] eq 'S' && $a3[-1] ne $a3[1]) {
            return join '', @a3;
        }
        elsif($s->[0] eq 'x' && $a3[0] eq 'W' && $a3[-1] eq $a3[1]) {
            return join '', @a3;
        }
    }
    if($a4[0] eq $a4[-1]){
        pop @a4;
        if($s->[0] eq 'o' && $a4[0] eq 'S' && $a4[-1] eq $a4[1]) {
            return join '', @a4;
        }
        elsif($s->[0] eq 'o' && $a4[0] eq 'W' && $a4[-1] ne $a4[1]) {
            return join '', @a4;
        }
        elsif($s->[0] eq 'x' && $a4[0] eq 'S' && $a4[-1] ne $a4[1]) {
            return join '', @a4;
        }
        elsif($s->[0] eq 'x' && $a4[0] eq 'W' && $a4[-1] eq $a4[1]) {
            return join '', @a4;
        }
    }
    return -1;
}

Measured memory_bytes: 42112