strsubs         :: [String] -> String
strsubs [xs, ys] = strsub [(xs, False)] (splitOn "," ys)
strsubs         :: [String] -> String
strsubs [xs, ys] = strsub [(xs, False)] (splitOn "," ys)
strsubs [xs, ys] = strsub [(xs, False)] (splitOn "," ys)