diff --git a/README.md b/README.md
index 84119f2..1256365 100644
--- a/README.md
+++ b/README.md
@@ -189,6 +189,8 @@ The library can be used standalone through the ```canc``` and ```can``` utility:
 
 	You can choosed to run only the preprocessor or compile using the ```-preprocess``` and ```-compile``` flags.
 
+	The ```-ast``` flag is also available for debugging, and will disable preprocessing, compiling and file writing, and instead directly dump the AST generated from the input file(s) to stdout.
+
 	* example uses :
 
 		````canc foo.can````
diff --git a/bin/canc b/bin/canc
index 5cfed4b..ee0945b 100644
--- a/bin/canc
+++ b/bin/canc
@@ -1,10 +1,12 @@
 #!/bin/lua
 local candran = require("candran")
 local cmdline = require("lib.cmdline")
+local parse = require("lib.lua-parser.parser").parse
+local pp = require("lib.lua-parser.pp")
 
 if #arg < 1 then
 	print("Candran compiler version "..candran.VERSION.." by Reuh")
-	print("Usage: "..arg[0].." [target=<target>] [dest=<destination directory>] [-print] [-preprocess] [-compile] [options] filename...")
+	print("Usage: "..arg[0].." [target=<target>] [dest=<destination directory>] [-print] [-preprocess] [-compile] [-ast] [options] filename...")
 	return
 end
 
@@ -25,6 +27,11 @@ for _, file in ipairs(args) do
 	local input = inputFile:read("*a")
 	inputFile:close()
 
+	if args.ast then
+		pp.dump(parse(input))
+		return
+	end
+
 	if args.chunkname == nil then
 		args.chunkname = file
 	end
diff --git a/candran.lua b/candran.lua
index 005d070..d256a7d 100644
--- a/candran.lua
+++ b/candran.lua
@@ -150,7 +150,7 @@ lastLine = tonumber(line)
 else
 for _ in code:sub(prevLinePos, lastInputPos):gmatch("\
 ") do
-lastLine = lastLine + 1
+lastLine = lastLine + (1)
 end
 end
 prevLinePos = lastInputPos
@@ -159,18 +159,18 @@ end
 return r
 end
 local function indent()
-indentLevel = indentLevel + 1
+indentLevel = indentLevel + (1)
 return newline()
 end
 local function unindent()
-indentLevel = indentLevel - 1
+indentLevel = indentLevel - (1)
 return newline()
 end
 local required = {}
 local requireStr = ""
 local function addRequire(mod, name, field)
 if not required[mod] then
-requireStr = requireStr .. "local " .. options["requirePrefix"] .. name .. (" = require(%q)"):format(mod) .. (field and "." .. field or "") .. options["newline"]
+requireStr = requireStr .. ("local " .. options["requirePrefix"] .. name .. (" = require(%q)"):format(mod) .. (field and "." .. field or "") .. options["newline"])
 required[mod] = true
 end
 end
@@ -215,10 +215,10 @@ tags = setmetatable({
 ["Block"] = function(t)
 local r = ""
 for i = 1, # t - 1, 1 do
-r = r .. lua(t[i]) .. newline()
+r = r .. (lua(t[i]) .. newline())
 end
 if t[# t] then
-r = r .. lua(t[# t])
+r = r .. (lua(t[# t]))
 end
 return r
 end, ["Do"] = function(t)
@@ -231,37 +231,49 @@ return lua(t[1], "_lhs") .. " = " .. lua(t[3], "_lhs")
 elseif # t == 4 then
 if t[3] == "=" then
 local r = lua(t[1], "_lhs") .. " = " .. lua({
-t[2], t[1][1], t[4][1]
+t[2], t[1][1], {
+["tag"] = "Paren", t[4][1]
+}
 }, "Op")
 for i = 2, math["min"](# t[4], # t[1]), 1 do
-r = r .. ", " .. lua({
-t[2], t[1][i], t[4][i]
-}, "Op")
+r = r .. (", " .. lua({
+t[2], t[1][i], {
+["tag"] = "Paren", t[4][i]
+}
+}, "Op"))
 end
 return r
 else
 local r = lua(t[1], "_lhs") .. " = " .. lua({
-t[3], t[4][1], t[1][1]
+t[3], {
+["tag"] = "Paren", t[4][1]
+}, t[1][1]
 }, "Op")
 for i = 2, math["min"](# t[4], # t[1]), 1 do
-r = r .. ", " .. lua({
-t[3], t[4][i], t[1][i]
-}, "Op")
+r = r .. (", " .. lua({
+t[3], {
+["tag"] = "Paren", t[4][i]
+}, t[1][i]
+}, "Op"))
 end
 return r
 end
 else
 local r = lua(t[1], "_lhs") .. " = " .. lua({
 t[2], t[1][1], {
-["tag"] = "Op", t[4], t[5][1], t[1][1]
+["tag"] = "Op", t[4], {
+["tag"] = "Paren", t[5][1]
+}, t[1][1]
 }
 }, "Op")
 for i = 2, math["min"](# t[5], # t[1]), 1 do
-r = r .. ", " .. lua({
+r = r .. (", " .. lua({
 t[2], t[1][i], {
-["tag"] = "Op", t[4], t[5][i], t[1][i]
+["tag"] = "Op", t[4], {
+["tag"] = "Paren", t[5][i]
+}, t[1][i]
 }
-}, "Op")
+}, "Op"))
 end
 return r
 end
@@ -272,10 +284,10 @@ return "repeat" .. indent() .. namedLua("loop", t[1]) .. unindent() .. "until "
 end, ["If"] = function(t)
 local r = "if " .. lua(t[1]) .. " then" .. indent() .. lua(t[2]) .. unindent()
 for i = 3, # t - 1, 2 do
-r = r .. "elseif " .. lua(t[i]) .. " then" .. indent() .. lua(t[i + 1]) .. unindent()
+r = r .. ("elseif " .. lua(t[i]) .. " then" .. indent() .. lua(t[i + 1]) .. unindent())
 end
 if # t % 2 == 1 then
-r = r .. "else" .. indent() .. lua(t[# t]) .. unindent()
+r = r .. ("else" .. indent() .. lua(t[# t]) .. unindent())
 end
 return r .. "end"
 end, ["Fornum"] = function(t)
@@ -290,7 +302,7 @@ return "for " .. lua(t[1], "_lhs") .. " in " .. lua(t[2], "_lhs") .. " do" .. in
 end, ["Local"] = function(t)
 local r = "local " .. lua(t[1], "_lhs")
 if t[2][1] then
-r = r .. " = " .. lua(t[2], "_lhs")
+r = r .. (" = " .. lua(t[2], "_lhs"))
 end
 return r
 end, ["Let"] = function(t)
@@ -300,9 +312,9 @@ if t[2][1] then
 if any(t[2], {
 "Function", "Table", "Paren"
 }) then
-r = r .. newline() .. nameList .. " = " .. lua(t[2], "_lhs")
+r = r .. (newline() .. nameList .. " = " .. lua(t[2], "_lhs"))
 else
-r = r .. " = " .. lua(t[2], "_lhs")
+r = r .. (" = " .. lua(t[2], "_lhs"))
 end
 end
 return r
@@ -335,28 +347,28 @@ local decl = {}
 if t[1][1] then
 if t[1][1]["tag"] == "ParPair" then
 local id = lua(t[1][1][1])
-indentLevel = indentLevel + 1
+indentLevel = indentLevel + (1)
 table["insert"](decl, id .. " = " .. id .. " == nil and " .. lua(t[1][1][2]) .. " or " .. id)
-indentLevel = indentLevel - 1
-r = r .. id
+indentLevel = indentLevel - (1)
+r = r .. (id)
 else
-r = r .. lua(t[1][1])
+r = r .. (lua(t[1][1]))
 end
 for i = 2, # t[1], 1 do
 if t[1][i]["tag"] == "ParPair" then
 local id = lua(t[1][i][1])
-indentLevel = indentLevel + 1
+indentLevel = indentLevel + (1)
 table["insert"](decl, "if " .. id .. " == nil then " .. id .. " = " .. lua(t[1][i][2]) .. " end")
-indentLevel = indentLevel - 1
-r = r .. ", " .. id
+indentLevel = indentLevel - (1)
+r = r .. (", " .. id)
 else
-r = r .. ", " .. lua(t[1][i])
+r = r .. (", " .. lua(t[1][i]))
 end
 end
 end
-r = r .. ")" .. indent()
+r = r .. (")" .. indent())
 for _, d in ipairs(decl) do
-r = r .. d .. newline()
+r = r .. (d .. newline())
 end
 return r .. lua(t[2]) .. unindent() .. "end"
 end, ["Function"] = function(t)
@@ -399,7 +411,7 @@ local r
 if t[start] then
 r = lua(t[start])
 for i = start + 1, # t, 1 do
-r = r .. ", " .. lua(t[i])
+r = r .. (", " .. lua(t[i]))
 end
 else
 r = ""
@@ -442,7 +454,7 @@ lastLine = tonumber(line)
 else
 for _ in code:sub(prevLinePos, lastInputPos):gmatch("\
 ") do
-lastLine = lastLine + 1
+lastLine = lastLine + (1)
 end
 end
 prevLinePos = lastInputPos
@@ -451,18 +463,18 @@ end
 return r
 end
 local function indent()
-indentLevel = indentLevel + 1
+indentLevel = indentLevel + (1)
 return newline()
 end
 local function unindent()
-indentLevel = indentLevel - 1
+indentLevel = indentLevel - (1)
 return newline()
 end
 local required = {}
 local requireStr = ""
 local function addRequire(mod, name, field)
 if not required[mod] then
-requireStr = requireStr .. "local " .. options["requirePrefix"] .. name .. (" = require(%q)"):format(mod) .. (field and "." .. field or "") .. options["newline"]
+requireStr = requireStr .. ("local " .. options["requirePrefix"] .. name .. (" = require(%q)"):format(mod) .. (field and "." .. field or "") .. options["newline"])
 required[mod] = true
 end
 end
@@ -507,10 +519,10 @@ tags = setmetatable({
 ["Block"] = function(t)
 local r = ""
 for i = 1, # t - 1, 1 do
-r = r .. lua(t[i]) .. newline()
+r = r .. (lua(t[i]) .. newline())
 end
 if t[# t] then
-r = r .. lua(t[# t])
+r = r .. (lua(t[# t]))
 end
 return r
 end, ["Do"] = function(t)
@@ -523,37 +535,49 @@ return lua(t[1], "_lhs") .. " = " .. lua(t[3], "_lhs")
 elseif # t == 4 then
 if t[3] == "=" then
 local r = lua(t[1], "_lhs") .. " = " .. lua({
-t[2], t[1][1], t[4][1]
+t[2], t[1][1], {
+["tag"] = "Paren", t[4][1]
+}
 }, "Op")
 for i = 2, math["min"](# t[4], # t[1]), 1 do
-r = r .. ", " .. lua({
-t[2], t[1][i], t[4][i]
-}, "Op")
+r = r .. (", " .. lua({
+t[2], t[1][i], {
+["tag"] = "Paren", t[4][i]
+}
+}, "Op"))
 end
 return r
 else
 local r = lua(t[1], "_lhs") .. " = " .. lua({
-t[3], t[4][1], t[1][1]
+t[3], {
+["tag"] = "Paren", t[4][1]
+}, t[1][1]
 }, "Op")
 for i = 2, math["min"](# t[4], # t[1]), 1 do
-r = r .. ", " .. lua({
-t[3], t[4][i], t[1][i]
-}, "Op")
+r = r .. (", " .. lua({
+t[3], {
+["tag"] = "Paren", t[4][i]
+}, t[1][i]
+}, "Op"))
 end
 return r
 end
 else
 local r = lua(t[1], "_lhs") .. " = " .. lua({
 t[2], t[1][1], {
-["tag"] = "Op", t[4], t[5][1], t[1][1]
+["tag"] = "Op", t[4], {
+["tag"] = "Paren", t[5][1]
+}, t[1][1]
 }
 }, "Op")
 for i = 2, math["min"](# t[5], # t[1]), 1 do
-r = r .. ", " .. lua({
+r = r .. (", " .. lua({
 t[2], t[1][i], {
-["tag"] = "Op", t[4], t[5][i], t[1][i]
+["tag"] = "Op", t[4], {
+["tag"] = "Paren", t[5][i]
+}, t[1][i]
 }
-}, "Op")
+}, "Op"))
 end
 return r
 end
@@ -564,10 +588,10 @@ return "repeat" .. indent() .. namedLua("loop", t[1]) .. unindent() .. "until "
 end, ["If"] = function(t)
 local r = "if " .. lua(t[1]) .. " then" .. indent() .. lua(t[2]) .. unindent()
 for i = 3, # t - 1, 2 do
-r = r .. "elseif " .. lua(t[i]) .. " then" .. indent() .. lua(t[i + 1]) .. unindent()
+r = r .. ("elseif " .. lua(t[i]) .. " then" .. indent() .. lua(t[i + 1]) .. unindent())
 end
 if # t % 2 == 1 then
-r = r .. "else" .. indent() .. lua(t[# t]) .. unindent()
+r = r .. ("else" .. indent() .. lua(t[# t]) .. unindent())
 end
 return r .. "end"
 end, ["Fornum"] = function(t)
@@ -582,7 +606,7 @@ return "for " .. lua(t[1], "_lhs") .. " in " .. lua(t[2], "_lhs") .. " do" .. in
 end, ["Local"] = function(t)
 local r = "local " .. lua(t[1], "_lhs")
 if t[2][1] then
-r = r .. " = " .. lua(t[2], "_lhs")
+r = r .. (" = " .. lua(t[2], "_lhs"))
 end
 return r
 end, ["Let"] = function(t)
@@ -592,9 +616,9 @@ if t[2][1] then
 if any(t[2], {
 "Function", "Table", "Paren"
 }) then
-r = r .. newline() .. nameList .. " = " .. lua(t[2], "_lhs")
+r = r .. (newline() .. nameList .. " = " .. lua(t[2], "_lhs"))
 else
-r = r .. " = " .. lua(t[2], "_lhs")
+r = r .. (" = " .. lua(t[2], "_lhs"))
 end
 end
 return r
@@ -627,28 +651,28 @@ local decl = {}
 if t[1][1] then
 if t[1][1]["tag"] == "ParPair" then
 local id = lua(t[1][1][1])
-indentLevel = indentLevel + 1
+indentLevel = indentLevel + (1)
 table["insert"](decl, id .. " = " .. id .. " == nil and " .. lua(t[1][1][2]) .. " or " .. id)
-indentLevel = indentLevel - 1
-r = r .. id
+indentLevel = indentLevel - (1)
+r = r .. (id)
 else
-r = r .. lua(t[1][1])
+r = r .. (lua(t[1][1]))
 end
 for i = 2, # t[1], 1 do
 if t[1][i]["tag"] == "ParPair" then
 local id = lua(t[1][i][1])
-indentLevel = indentLevel + 1
+indentLevel = indentLevel + (1)
 table["insert"](decl, "if " .. id .. " == nil then " .. id .. " = " .. lua(t[1][i][2]) .. " end")
-indentLevel = indentLevel - 1
-r = r .. ", " .. id
+indentLevel = indentLevel - (1)
+r = r .. (", " .. id)
 else
-r = r .. ", " .. lua(t[1][i])
+r = r .. (", " .. lua(t[1][i]))
 end
 end
 end
-r = r .. ")" .. indent()
+r = r .. (")" .. indent())
 for _, d in ipairs(decl) do
-r = r .. d .. newline()
+r = r .. (d .. newline())
 end
 return r .. lua(t[2]) .. unindent() .. "end"
 end, ["Function"] = function(t)
@@ -691,7 +715,7 @@ local r
 if t[start] then
 r = lua(t[start])
 for i = start + 1, # t, 1 do
-r = r .. ", " .. lua(t[i])
+r = r .. (", " .. lua(t[i]))
 end
 else
 r = ""
@@ -1919,21 +1943,21 @@ local i = 0
 for line in (input .. "\
 "):gmatch("(.-\
 )") do
-i = i + 1
+i = i + (1)
 if line:match("^%s*#") and not line:match("^#!") then
-preprocessor = preprocessor .. line:gsub("^%s*#", "")
+preprocessor = preprocessor .. (line:gsub("^%s*#", ""))
 else
 local l = line:sub(1, - 2)
 if options["mapLines"] and not l:match("%-%- (.-)%:(%d+)$") then
-preprocessor = preprocessor .. ("write(%q)"):format(l .. " -- " .. options["chunkname"] .. ":" .. i) .. "\
-"
+preprocessor = preprocessor .. (("write(%q)"):format(l .. " -- " .. options["chunkname"] .. ":" .. i) .. "\
+")
 else
-preprocessor = preprocessor .. ("write(%q)"):format(line:sub(1, - 2)) .. "\
-"
+preprocessor = preprocessor .. (("write(%q)"):format(line:sub(1, - 2)) .. "\
+")
 end
 end
 end
-preprocessor = preprocessor .. "return output"
+preprocessor = preprocessor .. ("return output")
 local env = util["merge"](_G, options)
 env["candran"] = candran
 env["output"] = ""
@@ -1967,8 +1991,8 @@ env["write"](f:read("*a"))
 f:close()
 end
 env["write"] = function(...)
-env["output"] = env["output"] .. table["concat"]({ ... }, "\9") .. "\
-"
+env["output"] = env["output"] .. (table["concat"]({ ... }, "\9") .. "\
+")
 end
 env["placeholder"] = function(name)
 if env[name] then
diff --git a/compiler/lua53.can b/compiler/lua53.can
index ab5ea36..4314d35 100644
--- a/compiler/lua53.can
+++ b/compiler/lua53.can
@@ -124,22 +124,22 @@ return function(code, ast, options)
 				return lua(t[1], "_lhs") .. " = " .. lua(t[3], "_lhs")
 			elseif #t == 4 then
 				if t[3] == "=" then
-					local r = lua(t[1], "_lhs") .. " = " .. lua({ t[2], t[1][1], t[4][1] }, "Op")
+					local r = lua(t[1], "_lhs") .. " = " .. lua({ t[2], t[1][1], { tag = "Paren", t[4][1] } }, "Op")
 					for i=2, math.min(#t[4], #t[1]), 1 do
-						r ..= ", " .. lua({ t[2], t[1][i], t[4][i] }, "Op")
+						r ..= ", " .. lua({ t[2], t[1][i], { tag = "Paren", t[4][i] } }, "Op")
 					end
 					return r
 				else
-					local r = lua(t[1], "_lhs") .. " = " .. lua({ t[3], t[4][1], t[1][1] }, "Op")
+					local r = lua(t[1], "_lhs") .. " = " .. lua({ t[3], { tag = "Paren", t[4][1] }, t[1][1] }, "Op")
 					for i=2, math.min(#t[4], #t[1]), 1 do
-						r ..= ", " .. lua({ t[3], t[4][i], t[1][i] }, "Op")
+						r ..= ", " .. lua({ t[3], { tag = "Paren", t[4][i] }, t[1][i] }, "Op")
 					end
 					return r
 				end
 			else -- You are mad.
-				local r = lua(t[1], "_lhs") .. " = " .. lua({ t[2], t[1][1], { tag = "Op", t[4], t[5][1], t[1][1] } }, "Op")
+				local r = lua(t[1], "_lhs") .. " = " .. lua({ t[2], t[1][1], { tag = "Op", t[4], { tag = "Paren", t[5][1] }, t[1][1] } }, "Op")
 				for i=2, math.min(#t[5], #t[1]), 1 do
-					r ..= ", " .. lua({ t[2], t[1][i], { tag = "Op", t[4], t[5][i], t[1][i] } }, "Op")
+					r ..= ", " .. lua({ t[2], t[1][i], { tag = "Op", t[4], { tag = "Paren", t[5][i] }, t[1][i] } }, "Op")
 				end
 				return r
 			end
diff --git a/test/test.lua b/test/test.lua
index 12a0427..a5669bd 100644
--- a/test/test.lua
+++ b/test/test.lua
@@ -205,6 +205,22 @@ a = "hello"
 a ..=.. " world " assert(a == "hello world hello", "..=..")
 ]], nil)
 
+test("left assigments operators priority", [[
+local a = 5
+a *= 2 + 3
+return a
+]], 25)
+test("right assigments operators priority", [[
+local a = 5
+a =/ 2 + 3
+return a
+]], 1)
+test("left+right assigments operators priority", [[
+local a = 5
+a *=/ 2 + 3
+return a
+]], 5)
+
 -- Default function parameters
 test("default parameters", [[
 local function test(hey, def="re", no, foo=("bar"):gsub("bar", "batru"))