command = (alpha <|> numeric) <?> "command name"        
  where
    alpha = takeWhile1 isAlpha
    numeric = n <:> n <:> n <:> pure ""
        where n = satisfy isNumber
command = (alpha <|> numeric) <?> "command name"        
  where
    alpha = takeWhile1 isAlpha
    numeric = n <:> n <:> n <:> pure ""
        where n = satisfy isNumber
command = (alpha <|> numeric) <?> "command name"        
  where
    alpha = takeWhile1 isAlpha
    numeric = n <:> n <:> n <:> pure ""
        where n = satisfy isNumber