parseBindStmt :: Parser Stmt
parseBindStmt = do
  sym <- (char '_' <|> space <|> alphaNum) `manyTill` bindSymbol >>= return . trim
  exp <- parseExp
  return $ BindStmt (Symbol sym) exp
parseBindStmt :: Parser Stmt
parseBindStmt = do
  sym <- (char '_' <|> space <|> alphaNum) `manyTill` bindSymbol >>= return . trim
  exp <- parseExp
  return $ BindStmt (Symbol sym) exp
parseBindStmt = do
  sym <- (char '_' <|> space <|> alphaNum) `manyTill` bindSymbol >>= return . trim
  exp <- parseExp
  return $ BindStmt (Symbol sym) exp