comment :: Parser String
comment = do
  char '*'
  many space
  c <- many $ noneOf "\r\n"
  endOfLine
  return c

-- header :: Parser String
comment :: Parser String
comment = do
  char '*'
  many space
  c <- many $ noneOf "\r\n"
  endOfLine
  return c

-- header :: Parser String
comment = do
  char '*'
  many space
  c <- many $ noneOf "\r\n"
  endOfLine
  return c

-- header :: Parser String