-- another attempt at https://wiki.c2.com/?OddWordProblem

cymap = zipWith ($) . cycle :: [a -> b] -> [a] -> [b]
 
main = interact (unwords . owp . words) >> putStrLn "."
  where owp = cymap [id, reverse]