-- http://www.codewars.com/kata/52b757663a95b11b3d00062d
module WeIrDStRiNgCaSe where

import Data.Char
import Data.List.Split

toWeirdCase :: String -> String
toWeirdCase = unwords . map weirdise . words where
  weirdise = concatMap f . chunksOf 2
  f (x:xs) = toUpper x : map toLower xs