strsub               :: [(String, Bool)] -> [String] -> String
strsub xs []          = concatstr xs
strsub               :: [(String, Bool)] -> [String] -> String
strsub xs []          = concatstr xs
strsub xs []          = concatstr xs