main = do
    n <- getLine
    s <- getLine
    let list = filter (isMatch) [makePattern x s | x <- ["SS", "SW", "WS", "WW"]]
    putStrLn $ (null list) ? ("-1", take (read n :: Int) $ tail $ head list)
    where
        isMatch l = last l == l !! 2

makePattern pattern signs@(x:xs)
    | signs == [] = pattern
    | xs == [] = addAnimal pattern x
    | otherwise = makePattern (addAnimal pattern x) xs

addAnimal animals sign = animals ++ [animal]
    where animal = getNextAnimal (last $ init animals, last animals) sign

getNextAnimal (animal1, animal2) sign
    | animal2 == 'S' = (sign == 'o') ? (animal1, another animal1)
    | otherwise = (sign == 'o') ? (another animal1, animal1)

another a = (a == 'S') ? ('W', 'S')

x ? (a, b) = if x then a else b