oddEvenMap :: (a -> b) -> (a -> b) -> [a] -> [b]

oddEvenMap _ _ [] = []
oddEvenMap f1 f2 (x : y : s) = f1 x: f2 y : oddEvenMap f1 f2 s
oddEvenMap f1 f2 (x : s) = [f2 x]


withoutAs :: String -> String
withoutAs [] = []
withoutAs (x : s) = if (x == 'A' || x == 'a') then withoutAs s else help x s where help :: Char -> String -> String
                                                                                   help x s = x : withoutAs s