import Data.Array

type Z_2 = Bool

addz2::Z_2 -> Z_2 -> Z_2
addz2 True True = False
addz2 False False = False
addz2 True False = True
addz2 False True = True

addz2_3::Z_2 -> Z_2 -> Z_2 -> Z_2
addz2_3 x y z = addz2 (addz2 x y) z

convert::String->[Z_2]
convert []    = []
convert (x:xs)= (if x=='o' then False else True):(convert xs)

deconv::[Z_2]->String
deconv []     = []
deconv (x:xs) = (if x then 'W' else 'S'):(deconv xs)

genline::Array Int Z_2-> Int -> (Z_2,Z_2)->Array Int Z_2
genline b n (init_1,init_2) = let a = listArray (0,n+1) (init_1:init_2:[addz2_3 (a!(i-1)) (a!(i-2)) (b!(mod (i-1) n)) |i<-[2..(n+1)]])  in a

check::Int -> Array Int Z_2 -> Bool
check n a =((a!0) == (a!n))&&((a!1) == (a!(n+1)))

solver::Array Int Z_2 -> Int ->String
solver b n = let pat = map (genline b n) [(False,False),(False,True),(True,False),(False,False)] in
              let ok = filter (check n) pat in
              if ok==[] then "-1" else deconv ( take n (elems (head ok)))

main::IO()
main= do
  nc<-getLine
  let n = read nc::Int
  dat<-getLine
  let b = listArray (0,n-1) (convert dat)
  putStr ((solver b n)++"\n")
