filterInput :: [Char] -> [Char]
filterInput [] = []
filterinput (x:xs) =
    if elem x ".X"
       then x:filterInput xs
       else filterInput xs