-- |one or more spaces as defined by 'isSpace'
ircSpaces1 c = satisfy (isIRCSpace c) 
               >> skipWhile (isIRCSpace c) 
               <?> "required space"
ircSpaces1 c = satisfy (isIRCSpace c) 
               >> skipWhile (isIRCSpace c) 
               <?> "required space"
ircSpaces1 c = satisfy (isIRCSpace c) 
               >> skipWhile (isIRCSpace c) 
               <?> "required space"