g
skipLine = do
  char '#'
  v <- many $ noneOf "\r\n"
  endOfLine
  return v

toPos :: Parser (Maybe
skipLine :: Parser String
skipLine = do
  char '#'
  v <- many $ noneOf "\r\n"
  endOfLine
  return v
skipLine = do
  char '#'
  v <- many $ noneOf "\r\n"
  endOfLine
  return v