import qualified Data.Text as T
import           Data.Text (Text)
import           Data.Char

camelSplit :: Text -> Text
T.groupBy (\x y -> not $ isLower x && isUpper y)