parser-example.hs

module Main where

import qualified Text.Parsec as P

ks :: [String]
ks = 
    [ "ABCD"
    , "EFGH"
    ]

kp :: P.Parsec String () String
kp = P.choice $ map P.string ks

bp :: P.Parsec String () String
bp = P.manyTill P.anyChar (P.lookAhead kp) 

p = do
    a <- kp 
    b <- bp
    return (a,b)

text = "ABCD asdasdasd EFGH asdsadas"

main :: IO ()
main = case (P.parse (P.many p) "" text) of
    Left err -> print err
    Right xs -> print xs