-- pretty slow, but its another https://wiki.c2.com/?OddWordProblem

main = interact $ unwords . owp . words
  where owp = zipWith ($!) $ iterate (. reverse) reverse