{-# OPTIONS_GHC -Wno-incomplete-patterns #-}
import Data.Char
logMes a = tira a
main = do
a <- getLine
let result = logMes a
print result
par s = pares s 0
impar s = impares s 0
resul s = (par s, impar s)
pares :: String -> Int -> String
pares [] x = []
pares (a:as) x
| mod x 2 == 0 = [a]++ pares as (x+1)
| otherwise = pares as (x+1)
impares :: String -> Int -> String
impares [] x = []
impares (a:as) x
| mod x 2 > 0 = [a]++ impares as (x+1)
| otherwise = impares as (x+1)
tira :: String -> String
tira [] = []
tira (s:as)
| s == '[' || s == ']' || s == '(' || s == ')' || s == ','
|| s == '"' || s == ' ' || ord s == 39 || ord s > 60 = tira as
| otherwise = [s] ++ tira as
mec a = tira (head (words a))
{-
main = do
a <- getLine
b <- getLine
let result = impares (tira b ) 0
print result
main = do
a <- getLine
b <- getLine
c <- getChar
let result = comf a c 0 (read b)
print result
par s = pares (words s) 0
impar s = impares (words s) 0
resul s = (par s, impar s)
pares :: [String] -> Int -> [String]
1
