divOrMod = string "div" <|> string "mod"
>>> string "string" == AsciiString (ByteString.Char8.pack "string") True
{-# LANGUAGE OverloadedStrings #-} import Text.Regex.Applicative number = "one" *> pure 1 <|> "two" *> pure 2 main = print $ "two" =~ number