judge ws =
    j [] ws
    where
    j _ [] = "N/A"
    j ['O','O','O'] _ = "East"
    j ['X','X','X'] _ = "West"
    j ('O':'X':_) rs = j [] rs
    j ('X':'O':_) rs = j [] rs
    j acc (r:rs) = j (acc ++ [r]) rs

main = do
    ws <- getLine
    putStrLn $ judge ws