import Control.Applicative

getNext :: Bool -> Bool -> Bool -> Bool
getNext x y z = if (y && z) || (not $ y || z) then x else not x

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

typeChange :: [Bool] -> [Bool] -> ([(Bool,Bool)],[Bool],[Bool])
typeChange (p:q:rs) (x:y:_) = ([(p,x),(q,y)],(p:q:rs),[x,y])

lastToHead :: [a] -> [a]
lastToHead xs = last xs : (init xs)

sortResult :: [Bool] -> [Bool]
sortResult = lastToHead . lastToHead

forCycle :: ([(Bool,Bool)], [Bool], [Bool]) -> Maybe [Bool]
forCycle ([(s,t),(u,v)],[x],[p,q])   = if getNext q s t == v then Just [(getNext q s t)] else Nothing
forCycle ([(s,t),(u,v)],[x,y],[p,q]) = if getNext p y q == t then (:) <$> (Just (getNext p y q)) <*> forCycle ([(s,t),(u,v)],[x],[q,getNext p y q]) else Nothing
forCycle ([(s,t),(u,v)],(_:y:xs),[p,q]) = (:) <$> (Just h) <*> forCycle ([(s,t),(u,v)],(y:xs),[q,h])
  where h = getNext p y q

judgeResult :: [Maybe [Bool]] -> String
judgeResult [] = "-1"
judgeResult (x:xs) = case x of Just i -> (returnSW.sortResult) i
                               Nothing -> judgeResult xs

returnSW :: [Bool] -> String
returnSW [] = []
returnSW (x:xs) = h : returnSW xs
  where h = if x == True then 'S' else 'W'

returnResult :: [Bool] -> String
returnResult xs = judgeResult $ map (forCycle.typeChange xs) $ (:) <$> [True, False] <*> [[True], [False]]

main = do
  num <- fmap read getLine :: IO Int
  nums <- fmap oxToBool getLine :: IO [Bool]
  putStrLn $ returnResult nums