tagPred :: String -> String -> Bool
tagPred tag =
    if tag == ""
        then const True
        else (== tag)
tagPred :: String -> String -> Bool
tagPred tag =
    if tag == ""
        then const True
        else (== tag)
tagPred tag =
    if tag == ""
        then const True
        else (== tag)