format :: (String -> [Tag String]) -> String -> [Tag String]
format txt x
    | x == "\\" || any (`isPrefixOf` x) ["#!","3m","shake ","cabal "]
    = [TagText x]
format :: (String -> [Tag String]) -> String -> [Tag String]
format txt x
    | x == "\\" || any (`isPrefixOf` x) ["#!","3m","shake ","cabal "]
    = [TagText x]
format txt x
    | x == "\\" || any (`isPrefixOf` x) ["#!","3m","shake ","cabal "]
    = [TagText x]