respondToNAMES (SNumeric _ 353 [_,_,ch,names]) = do
    chrs <- getGlobal' statusChars
    let toUser (x:xs) = if x `elem` chrs
                          then (makeUser xs){statusCharL=[(makeChannel ch, x)]}
                          else makeUser (x:xs)
    let namesL = map toUser . splitOn " " $ names
    namesResponse ch namesL
respondToNAMES (SNumeric _ 353 [_,_,ch,names]) = do
    chrs <- getGlobal' statusChars
    let toUser (x:xs) = if x `elem` chrs
                          then (makeUser xs){statusCharL=[(makeChannel ch, x)]}
                          else makeUser (x:xs)
    let namesL = map toUser . splitOn " " $ names
    namesResponse ch namesL
respondToNAMES (SNumeric _ 353 [_,_,ch,names]) = do
    chrs <- getGlobal' statusChars
    let toUser (x:xs) = if x `elem` chrs
                          then (makeUser xs){statusCharL=[(makeChannel ch, x)]}
                          else makeUser (x:xs)
    let namesL = map toUser . splitOn " " $ names
    namesResponse ch namesL