import Control.Monad.State.Lazy

f = takeWhile(/="").evalState(mapM(state.splitAt.(2^))[0..])

main :: IO ()
main = do
  putStr $ show $ f "abcdefghijklmno"