parseCommands :: GenParser Char st [String]
parseCommands =
  many (command)
  <|> (return [])
parseCommands :: GenParser Char st [String]
parseCommands =
  many (command)
  <|> (return [])
parseCommands =
  many (command)
  <|> (return [])