parseNew :: Parser Exp
parseNew = do
  string "new"
  many1 space
  typ <- (many (char '_' <|> alphaNum)) `sepBy1` (char '.')
  args <- parseArgs
  return $ New (CLRType typ) args
parseNew :: Parser Exp
parseNew = do
  string "new"
  many1 space
  typ <- (many (char '_' <|> alphaNum)) `sepBy1` (char '.')
  args <- parseArgs
  return $ New (CLRType typ) args
parseNew = do
  string "new"
  many1 space
  typ <- (many (char '_' <|> alphaNum)) `sepBy1` (char '.')
  args <- parseArgs
  return $ New (CLRType typ) args