Updated docs.

33 files changed, 2386 insertions, 1327 deletions

diff --git a/doc/docs/.vitepress/config.mts b/doc/docs/.vitepress/config.mts
index cae1d89..c23301f 100644
--- a/doc/docs/.vitepress/config.mts
+++ b/doc/docs/.vitepress/config.mts
@@ -299,6 +299,7 @@ function createSidebar(basePath: string, locale: SidebarLocale) {
           text: text.attributes,
           link: `${basePath}/language-basics/attributes`,
         },
+        { text: text.module, link: `${basePath}/language-basics/module` },
       ],
     },
     {
@@ -389,7 +390,6 @@ function createSidebar(basePath: string, locale: SidebarLocale) {
       collapsed: true,
       items: [
         { text: text.macro, link: `${basePath}/advanced/macro` },
-        { text: text.module, link: `${basePath}/advanced/module` },
         {
           text: text.lineDecorators,
           link: `${basePath}/advanced/line-decorators`,
@@ -510,6 +510,11 @@ export default defineConfig({
   document.head.appendChild(s);
 })();`,
     ],
+    [
+      "style",
+      {},
+      ".dark .vp-code span{color:var(--shiki-dark,inherit)}html:not(.dark) .vp-code span{color:var(--shiki-light,inherit)}",
+    ],
   ],
   vite: {
     publicDir: resolve(__dirname, "public"),
diff --git a/doc/docs/de/doc/advanced/do.md b/doc/docs/de/doc/advanced/do.md
index 265a5ba..c6c41cf 100644
--- a/doc/docs/de/doc/advanced/do.md
+++ b/doc/docs/de/doc/advanced/do.md
@@ -20,7 +20,27 @@ print var -- nil hier
 
 </YueDisplay>
 
-YueScripts **do** kann auch als Ausdruck verwendet werden. So kannst du mehrere Zeilen in einem Ausdruck kombinieren. Das Ergebnis des `do`-Ausdrucks ist die letzte Anweisung im Block.
+YueScripts **do** kann auch als Ausdruck verwendet werden. So kannst du mehrere Zeilen in einem Ausdruck kombinieren. Das Ergebnis des `do`-Ausdrucks ist die letzte Anweisung im Block. `do`-Ausdrücke unterstützen die Verwendung von `break`, um den Kontrollfluss zu unterbrechen und mehrere Rückgabewerte vorzeitig zurückzugeben.
+
+```yuescript
+status, value = do
+  n = 12
+  if n > 10
+    break "large", n
+  break "small", n
+```
+
+<YueDisplay>
+
+```yue
+status, value = do
+  n = 12
+  if n > 10
+    break "large", n
+  break "small", n
+```
+
+</YueDisplay>
 
 ```yuescript
 counter = do
diff --git a/doc/docs/de/doc/control-flow/for-loop.md b/doc/docs/de/doc/control-flow/for-loop.md
index 827d983..16b5418 100644
--- a/doc/docs/de/doc/control-flow/for-loop.md
+++ b/doc/docs/de/doc/control-flow/for-loop.md
@@ -86,7 +86,7 @@ doubled_evens = for i = 1, 20
 
 </YueDisplay>
 
-Zusätzlich unterstützen `for`-Schleifen `break` mit Rückgabewert, sodass die Schleife selbst als Ausdruck verwendet werden kann, der früh mit einem sinnvollen Ergebnis endet.
+Zusätzlich unterstützen `for`-Schleifen `break` mit Rückgabewerten, sodass die Schleife selbst als Ausdruck verwendet werden kann, der früh mit einem sinnvollen Ergebnis endet. `for`-Ausdrücke unterstützen mehrere `break`-Werte.
 
 Beispiel: die erste Zahl größer als 10 finden:
 
@@ -106,6 +106,20 @@ first_large = for n in *numbers
 
 Diese `break`-mit-Wert-Syntax ermöglicht knappe und ausdrucksstarke Such- bzw. Early-Exit-Muster direkt in Schleifenausdrücken.
 
+```yuescript
+key, score = for k, v in pairs data
+  break k, v * 10 if k == "target"
+```
+
+<YueDisplay>
+
+```yue
+key, score = for k, v in pairs data
+  break k, v * 10 if k == "target"
+```
+
+</YueDisplay>
+
 Du kannst Werte auch filtern, indem du den `for`-Ausdruck mit `continue` kombinierst.
 
 `for`-Schleifen am Ende eines Funktionsrumpfs werden nicht in eine Tabelle für einen Rückgabewert gesammelt (stattdessen gibt die Funktion `nil` zurück). Du kannst entweder explizit `return` verwenden oder die Schleife in eine Listen-Comprehension umwandeln.
diff --git a/doc/docs/de/doc/control-flow/while-loop.md b/doc/docs/de/doc/control-flow/while-loop.md
index 6d9f089..98776ec 100644
--- a/doc/docs/de/doc/control-flow/while-loop.md
+++ b/doc/docs/de/doc/control-flow/while-loop.md
@@ -45,7 +45,25 @@ until running == false do my_function!
 
 </YueDisplay>
 
-Wie bei `for`-Schleifen kann die `while`-Schleife auch als Ausdruck verwendet werden. Damit eine Funktion den akkumulierten Wert einer `while`-Schleife zurückgibt, muss die Anweisung explizit mit `return` zurückgegeben werden.
+Wie bei `for`-Schleifen kann die `while`-Schleife auch als Ausdruck verwendet werden. `while`- und `until`-Ausdrücke unterstützen `break` mit mehreren Rückgabewerten.
+
+```yuescript
+value, doubled = while true
+  n = get_next!
+  break n, n * 2 if n > 10
+```
+
+<YueDisplay>
+
+```yue
+value, doubled = while true
+  n = get_next!
+  break n, n * 2 if n > 10
+```
+
+</YueDisplay>
+
+Damit eine Funktion den akkumulierten Wert einer `while`-Schleife zurückgibt, muss die Anweisung explizit mit `return` zurückgegeben werden.
 
 ## Repeat-Schleife
 
@@ -70,3 +88,25 @@ until i == 0
 ```
 
 </YueDisplay>
+
+`repeat`-Ausdrücke unterstützen ebenfalls `break` mit mehreren Rückgabewerten:
+
+```yuescript
+i = 1
+value, scaled = repeat
+  break i, i * 100 if i > 3
+  i += 1
+until false
+```
+
+<YueDisplay>
+
+```yue
+i = 1
+value, scaled = repeat
+  break i, i * 100 if i > 3
+  i += 1
+until false
+```
+
+</YueDisplay>
diff --git a/doc/docs/de/doc/advanced/module.md b/doc/docs/de/doc/language-basics/module.md
index f20deec..f20deec 100644
--- a/doc/docs/de/doc/advanced/module.md
+++ b/doc/docs/de/doc/language-basics/module.md
diff --git a/doc/docs/de/doc/objects/with-statement.md b/doc/docs/de/doc/objects/with-statement.md
index adeeda6..f299902 100644
--- a/doc/docs/de/doc/objects/with-statement.md
+++ b/doc/docs/de/doc/objects/with-statement.md
@@ -44,6 +44,50 @@ file = with File "Lieblingsessen.txt"
 
 </YueDisplay>
 
+`with`-Ausdrücke unterstützen `break` mit genau einem Wert:
+
+```yuescript
+result = with obj
+  break .value
+```
+
+<YueDisplay>
+
+```yue
+result = with obj
+  break .value
+```
+
+</YueDisplay>
+
+Sobald `break value` in `with` verwendet wird, gibt der `with`-Ausdruck nicht mehr sein Zielobjekt zurück, sondern den von `break` gelieferten Wert.
+
+```yuescript
+a = with obj
+  .x = 1
+-- a ist obj
+
+b = with obj
+  break .x
+-- b ist .x, nicht obj
+```
+
+<YueDisplay>
+
+```yue
+a = with obj
+  .x = 1
+-- a ist obj
+
+b = with obj
+  break .x
+-- b ist .x, nicht obj
+```
+
+</YueDisplay>
+
+Im Unterschied zu `for` / `while` / `repeat` / `do` unterstützt `with` nur einen `break`-Wert.
+
 Oder …
 
 ```yuescript
diff --git a/doc/docs/doc/advanced/do.md b/doc/docs/doc/advanced/do.md
index c4b3e30..e13b025 100644
--- a/doc/docs/doc/advanced/do.md
+++ b/doc/docs/doc/advanced/do.md
@@ -22,6 +22,28 @@ print var -- nil here
 
 YueScript's **do** can also be used an expression . Allowing you to combine multiple lines into one. The result of the do expression is the last statement in its body.
 
+`do` expressions also support using `break` to interrupt control flow and return multiple values early:
+
+```yuescript
+status, value = do
+  n = 12
+  if n > 10
+    break "large", n
+  break "small", n
+```
+
+<YueDisplay>
+
+```yue
+status, value = do
+  n = 12
+  if n > 10
+    break "large", n
+  break "small", n
+```
+
+</YueDisplay>
+
 ```yuescript
 counter = do
   i = 0
diff --git a/doc/docs/doc/control-flow/for-loop.md b/doc/docs/doc/control-flow/for-loop.md
index b92e94e..763e6a7 100644
--- a/doc/docs/doc/control-flow/for-loop.md
+++ b/doc/docs/doc/control-flow/for-loop.md
@@ -86,7 +86,7 @@ doubled_evens = for i = 1, 20
 
 </YueDisplay>
 
-In addition, for loops support break with a return value, allowing the loop itself to be used as an expression that exits early with a meaningful result.
+In addition, for loops support break with return values, allowing the loop itself to be used as an expression that exits early with meaningful results.
 
 For example, to find the first number greater than 10:
 
@@ -106,6 +106,22 @@ first_large = for n in *numbers
 
 This break-with-value syntax enables concise and expressive search or early-exit patterns directly within loop expressions.
 
+For loop expressions can break with multiple values:
+
+```yuescript
+key, score = for k, v in pairs data
+  break k, v * 10 if k == "target"
+```
+
+<YueDisplay>
+
+```yue
+key, score = for k, v in pairs data
+  break k, v * 10 if k == "target"
+```
+
+</YueDisplay>
+
 You can also filter values by combining the for loop expression with the continue statement.
 
 For loops at the end of a function body are not accumulated into a table for a return value (Instead the function will return nil). Either an explicit return statement can be used, or the loop can be converted into a list comprehension.
diff --git a/doc/docs/doc/control-flow/while-loop.md b/doc/docs/doc/control-flow/while-loop.md
index 02e82d6..0dff342 100644
--- a/doc/docs/doc/control-flow/while-loop.md
+++ b/doc/docs/doc/control-flow/while-loop.md
@@ -45,7 +45,25 @@ until running == false do my_function!
 
 </YueDisplay>
 
-Like for loops, the while loop can also be used an expression. Additionally, for a function to return the accumulated value of a while loop, the statement must be explicitly returned.
+Like for loops, the while loop can also be used as an expression. While and until loop expressions support `break` with multiple return values.
+
+```yuescript
+value, doubled = while true
+  n = get_next!
+  break n, n * 2 if n > 10
+```
+
+<YueDisplay>
+
+```yue
+value, doubled = while true
+  n = get_next!
+  break n, n * 2 if n > 10
+```
+
+</YueDisplay>
+
+Additionally, for a function to return the accumulated value of a while loop, the statement must be explicitly returned.
 
 ## Repeat Loop
 
@@ -70,3 +88,25 @@ until i == 0
 ```
 
 </YueDisplay>
+
+Repeat loop expressions also support `break` with multiple return values:
+
+```yuescript
+i = 1
+value, scaled = repeat
+  break i, i * 100 if i > 3
+  i += 1
+until false
+```
+
+<YueDisplay>
+
+```yue
+i = 1
+value, scaled = repeat
+  break i, i * 100 if i > 3
+  i += 1
+until false
+```
+
+</YueDisplay>
diff --git a/doc/docs/doc/advanced/module.md b/doc/docs/doc/language-basics/module.md
index 0ba2d90..0ba2d90 100644
--- a/doc/docs/doc/advanced/module.md
+++ b/doc/docs/doc/language-basics/module.md
diff --git a/doc/docs/doc/objects/with-statement.md b/doc/docs/doc/objects/with-statement.md
index 5d7fea3..9173f9c 100644
--- a/doc/docs/doc/objects/with-statement.md
+++ b/doc/docs/doc/objects/with-statement.md
@@ -44,6 +44,50 @@ file = with File "favorite_foods.txt"
 
 </YueDisplay>
 
+`with` expressions support `break` with one value:
+
+```yuescript
+result = with obj
+  break .value
+```
+
+<YueDisplay>
+
+```yue
+result = with obj
+  break .value
+```
+
+</YueDisplay>
+
+After `break value` is used inside `with`, the `with` expression no longer returns its target object. Instead, it returns the value from `break`.
+
+```yuescript
+a = with obj
+  .x = 1
+-- a is obj
+
+b = with obj
+  break .x
+-- b is .x, not obj
+```
+
+<YueDisplay>
+
+```yue
+a = with obj
+  .x = 1
+-- a is obj
+
+b = with obj
+  break .x
+-- b is .x, not obj
+```
+
+</YueDisplay>
+
+Unlike `for` / `while` / `repeat` / `do`, `with` only supports one break value.
+
 Or…
 
 ```yuescript
diff --git a/doc/docs/id-id/doc/advanced/do.md b/doc/docs/id-id/doc/advanced/do.md
index ac75531..52ef5dc 100644
--- a/doc/docs/id-id/doc/advanced/do.md
+++ b/doc/docs/id-id/doc/advanced/do.md
@@ -20,7 +20,27 @@ print var -- nil di sini
 
 </YueDisplay>
 
-`do` di YueScript juga bisa digunakan sebagai ekspresi, memungkinkan Anda menggabungkan beberapa baris menjadi satu. Hasil ekspresi `do` adalah pernyataan terakhir di badannya.
+`do` di YueScript juga bisa digunakan sebagai ekspresi, memungkinkan Anda menggabungkan beberapa baris menjadi satu. Hasil ekspresi `do` adalah pernyataan terakhir di badannya. Ekspresi `do` mendukung penggunaan `break` untuk memutus alur eksekusi dan mengembalikan banyak nilai lebih awal.
+
+```yuescript
+status, value = do
+  n = 12
+  if n > 10
+    break "large", n
+  break "small", n
+```
+
+<YueDisplay>
+
+```yue
+status, value = do
+  n = 12
+  if n > 10
+    break "large", n
+  break "small", n
+```
+
+</YueDisplay>
 
 ```yuescript
 counter = do
diff --git a/doc/docs/id-id/doc/control-flow/for-loop.md b/doc/docs/id-id/doc/control-flow/for-loop.md
index 65386f7..3835cce 100644
--- a/doc/docs/id-id/doc/control-flow/for-loop.md
+++ b/doc/docs/id-id/doc/control-flow/for-loop.md
@@ -86,7 +86,7 @@ doubled_evens = for i = 1, 20
 
 </YueDisplay>
 
-Selain itu, loop for mendukung break dengan nilai kembalian, sehingga loop itu sendiri bisa dipakai sebagai ekspresi yang keluar lebih awal dengan hasil bermakna.
+Selain itu, loop for mendukung break dengan nilai kembalian, sehingga loop itu sendiri bisa dipakai sebagai ekspresi yang keluar lebih awal dengan hasil bermakna. Ekspresi `for` mendukung `break` dengan banyak nilai.
 
 Contohnya, untuk menemukan angka pertama yang lebih besar dari 10:
 
@@ -106,6 +106,20 @@ first_large = for n in *numbers
 
 Sintaks break-dengan-nilai ini memungkinkan pola pencarian atau keluar-lebih-awal yang ringkas langsung di dalam ekspresi loop.
 
+```yuescript
+key, score = for k, v in pairs data
+  break k, v * 10 if k == "target"
+```
+
+<YueDisplay>
+
+```yue
+key, score = for k, v in pairs data
+  break k, v * 10 if k == "target"
+```
+
+</YueDisplay>
+
 Anda juga bisa memfilter nilai dengan menggabungkan ekspresi for dengan pernyataan continue.
 
 Loop for di akhir badan fungsi tidak diakumulasikan menjadi tabel untuk nilai kembalian (sebaliknya fungsi akan mengembalikan nil). Gunakan pernyataan return eksplisit, atau ubah loop menjadi list comprehension.
diff --git a/doc/docs/id-id/doc/control-flow/while-loop.md b/doc/docs/id-id/doc/control-flow/while-loop.md
index 3e302cc..0c3a28d 100644
--- a/doc/docs/id-id/doc/control-flow/while-loop.md
+++ b/doc/docs/id-id/doc/control-flow/while-loop.md
@@ -45,7 +45,25 @@ until running == false do my_function!
 
 </YueDisplay>
 
-Seperti loop for, loop while juga bisa digunakan sebagai ekspresi. Selain itu, agar sebuah fungsi mengembalikan nilai akumulasi dari loop while, pernyataannya harus di-return secara eksplisit.
+Seperti loop for, loop while juga bisa digunakan sebagai ekspresi. Ekspresi `while` dan `until` mendukung `break` dengan banyak nilai.
+
+```yuescript
+value, doubled = while true
+  n = get_next!
+  break n, n * 2 if n > 10
+```
+
+<YueDisplay>
+
+```yue
+value, doubled = while true
+  n = get_next!
+  break n, n * 2 if n > 10
+```
+
+</YueDisplay>
+
+Selain itu, agar sebuah fungsi mengembalikan nilai akumulasi dari loop while, pernyataannya harus di-return secara eksplisit.
 
 ## Repeat Loop
 
@@ -70,3 +88,25 @@ until i == 0
 ```
 
 </YueDisplay>
+
+Ekspresi `repeat` juga mendukung `break` dengan banyak nilai:
+
+```yuescript
+i = 1
+value, scaled = repeat
+  break i, i * 100 if i > 3
+  i += 1
+until false
+```
+
+<YueDisplay>
+
+```yue
+i = 1
+value, scaled = repeat
+  break i, i * 100 if i > 3
+  i += 1
+until false
+```
+
+</YueDisplay>
diff --git a/doc/docs/id-id/doc/advanced/module.md b/doc/docs/id-id/doc/language-basics/module.md
index 103e3f6..103e3f6 100644
--- a/doc/docs/id-id/doc/advanced/module.md
+++ b/doc/docs/id-id/doc/language-basics/module.md
diff --git a/doc/docs/id-id/doc/objects/with-statement.md b/doc/docs/id-id/doc/objects/with-statement.md
index 96a3efd..b3dd520 100644
--- a/doc/docs/id-id/doc/objects/with-statement.md
+++ b/doc/docs/id-id/doc/objects/with-statement.md
@@ -44,6 +44,50 @@ file = with File "favorite_foods.txt"
 
 </YueDisplay>
 
+Ekspresi `with` mendukung `break` dengan satu nilai:
+
+```yuescript
+result = with obj
+  break .value
+```
+
+<YueDisplay>
+
+```yue
+result = with obj
+  break .value
+```
+
+</YueDisplay>
+
+Setelah `break value` digunakan di dalam `with`, ekspresi `with` tidak lagi mengembalikan objek targetnya, melainkan mengembalikan nilai dari `break`.
+
+```yuescript
+a = with obj
+  .x = 1
+-- a adalah obj
+
+b = with obj
+  break .x
+-- b adalah .x, bukan obj
+```
+
+<YueDisplay>
+
+```yue
+a = with obj
+  .x = 1
+-- a adalah obj
+
+b = with obj
+  break .x
+-- b adalah .x, bukan obj
+```
+
+</YueDisplay>
+
+Berbeda dari `for` / `while` / `repeat` / `do`, `with` hanya mendukung satu nilai `break`.
+
 Atau…
 
 ```yuescript
diff --git a/doc/docs/pt-br/doc/advanced/do.md b/doc/docs/pt-br/doc/advanced/do.md
index 503c551..aaf2c69 100644
--- a/doc/docs/pt-br/doc/advanced/do.md
+++ b/doc/docs/pt-br/doc/advanced/do.md
@@ -20,7 +20,27 @@ print var -- nil aqui
 
 </YueDisplay>
 
-O **do** do YueScript também pode ser usado como expressão. Permitindo combinar múltiplas linhas em uma. O resultado da expressão do é a última instrução em seu corpo.
+O **do** do YueScript também pode ser usado como expressão. Permitindo combinar múltiplas linhas em uma. O resultado da expressão do é a última instrução em seu corpo. Expressões `do` suportam usar `break` para interromper o fluxo de execução e retornar múltiplos valores antecipadamente.
+
+```yuescript
+status, value = do
+  n = 12
+  if n > 10
+    break "large", n
+  break "small", n
+```
+
+<YueDisplay>
+
+```yue
+status, value = do
+  n = 12
+  if n > 10
+    break "large", n
+  break "small", n
+```
+
+</YueDisplay>
 
 ```yuescript
 counter = do
diff --git a/doc/docs/pt-br/doc/control-flow/for-loop.md b/doc/docs/pt-br/doc/control-flow/for-loop.md
index 4c99e6d..de5f9c2 100644
--- a/doc/docs/pt-br/doc/control-flow/for-loop.md
+++ b/doc/docs/pt-br/doc/control-flow/for-loop.md
@@ -86,7 +86,7 @@ doubled_evens = for i = 1, 20
 
 </YueDisplay>
 
-Além disso, os loops for suportam break com valor de retorno, permitindo que o próprio loop seja usado como expressão que sai antecipadamente com um resultado significativo.
+Além disso, os loops for suportam break com valores de retorno, permitindo que o próprio loop seja usado como expressão que sai antecipadamente com um resultado significativo. Expressões `for` suportam `break` com múltiplos valores.
 
 Por exemplo, para encontrar o primeiro número maior que 10:
 
@@ -106,6 +106,20 @@ first_large = for n in *numbers
 
 Esta sintaxe de break-com-valor permite padrões concisos e expressivos de busca ou saída antecipada diretamente em expressões de loop.
 
+```yuescript
+key, score = for k, v in pairs data
+  break k, v * 10 if k == "target"
+```
+
+<YueDisplay>
+
+```yue
+key, score = for k, v in pairs data
+  break k, v * 10 if k == "target"
+```
+
+</YueDisplay>
+
 Você também pode filtrar valores combinando a expressão do loop for com a instrução continue.
 
 Loops for no final do corpo de uma função não são acumulados em uma tabela para valor de retorno (em vez disso, a função retornará nil). Uma instrução return explícita pode ser usada, ou o loop pode ser convertido em compreensão de lista.
diff --git a/doc/docs/pt-br/doc/control-flow/while-loop.md b/doc/docs/pt-br/doc/control-flow/while-loop.md
index 2deb5aa..38df05a 100644
--- a/doc/docs/pt-br/doc/control-flow/while-loop.md
+++ b/doc/docs/pt-br/doc/control-flow/while-loop.md
@@ -45,7 +45,25 @@ until running == false do my_function!
 
 </YueDisplay>
 
-Como os loops for, o loop while também pode ser usado como expressão. Além disso, para uma função retornar o valor acumulado de um loop while, a instrução deve ser explicitamente retornada.
+Como os loops for, o loop while também pode ser usado como expressão. Expressões `while` e `until` suportam `break` com múltiplos valores.
+
+```yuescript
+value, doubled = while true
+  n = get_next!
+  break n, n * 2 if n > 10
+```
+
+<YueDisplay>
+
+```yue
+value, doubled = while true
+  n = get_next!
+  break n, n * 2 if n > 10
+```
+
+</YueDisplay>
+
+Além disso, para uma função retornar o valor acumulado de um loop while, a instrução deve ser explicitamente retornada.
 
 ## Loop Repeat
 
@@ -70,3 +88,25 @@ until i == 0
 ```
 
 </YueDisplay>
+
+Expressões `repeat` também suportam `break` com múltiplos valores:
+
+```yuescript
+i = 1
+value, scaled = repeat
+  break i, i * 100 if i > 3
+  i += 1
+until false
+```
+
+<YueDisplay>
+
+```yue
+i = 1
+value, scaled = repeat
+  break i, i * 100 if i > 3
+  i += 1
+until false
+```
+
+</YueDisplay>
diff --git a/doc/docs/pt-br/doc/advanced/module.md b/doc/docs/pt-br/doc/language-basics/module.md
index ed13107..ed13107 100644
--- a/doc/docs/pt-br/doc/advanced/module.md
+++ b/doc/docs/pt-br/doc/language-basics/module.md
diff --git a/doc/docs/pt-br/doc/objects/with-statement.md b/doc/docs/pt-br/doc/objects/with-statement.md
index e5a56e5..38efee7 100644
--- a/doc/docs/pt-br/doc/objects/with-statement.md
+++ b/doc/docs/pt-br/doc/objects/with-statement.md
@@ -44,6 +44,50 @@ file = with File "favorite_foods.txt"
 
 </YueDisplay>
 
+Expressões `with` suportam `break` com um valor:
+
+```yuescript
+result = with obj
+  break .value
+```
+
+<YueDisplay>
+
+```yue
+result = with obj
+  break .value
+```
+
+</YueDisplay>
+
+Depois que `break value` é usado dentro de `with`, a expressão `with` deixa de retornar seu objeto-alvo e passa a retornar o valor de `break`.
+
+```yuescript
+a = with obj
+  .x = 1
+-- a é obj
+
+b = with obj
+  break .x
+-- b é .x, não obj
+```
+
+<YueDisplay>
+
+```yue
+a = with obj
+  .x = 1
+-- a é obj
+
+b = with obj
+  break .x
+-- b é .x, não obj
+```
+
+</YueDisplay>
+
+Diferente de `for` / `while` / `repeat` / `do`, `with` suporta apenas um valor de `break`.
+
 Ou…
 
 ```yuescript
diff --git a/doc/docs/zh/doc/advanced/do.md b/doc/docs/zh/doc/advanced/do.md
index a2d5d19..b3f61af 100644
--- a/doc/docs/zh/doc/advanced/do.md
+++ b/doc/docs/zh/doc/advanced/do.md
@@ -20,7 +20,27 @@ print var -- 这里是nil
 
 </YueDisplay>
 
-&emsp;&emsp;月之脚本的 **do** 也可以用作表达式。允许你将多行代码的处理合并为一个表达式，并将 do 语句代码块的最后一个语句作为表达式返回的结果。
+&emsp;&emsp;月之脚本的 **do** 也可以用作表达式。允许你将多行代码的处理合并为一个表达式，并将 do 语句代码块的最后一个语句作为表达式返回的结果。`do` 表达式支持通过 `break` 打断执行流并提前返回多个值。
+
+```yuescript
+status, value = do
+  n = 12
+  if n > 10
+    break "large", n
+  break "small", n
+```
+
+<YueDisplay>
+
+```yue
+status, value = do
+  n = 12
+  if n > 10
+    break "large", n
+  break "small", n
+```
+
+</YueDisplay>
 
 ```yuescript
 counter = do
diff --git a/doc/docs/zh/doc/control-flow/for-loop.md b/doc/docs/zh/doc/control-flow/for-loop.md
index 52180b7..97e66f9 100644
--- a/doc/docs/zh/doc/control-flow/for-loop.md
+++ b/doc/docs/zh/doc/control-flow/for-loop.md
@@ -86,7 +86,7 @@ doubled_evens = for i = 1, 20
 
 </YueDisplay>
 
-&emsp;&emsp;此外，for 循环还支持带返回值的 break 语句，这样循环本身就可以作为一个表达式，在满足条件时提前退出并返回有意义的结果。
+&emsp;&emsp;此外，for 循环还支持带返回值的 break 语句，这样循环本身就可以作为一个表达式，在满足条件时提前退出并返回有意义的结果。for 循环表达式支持 `break` 返回多个值。
 
 &emsp;&emsp;例如，查找第一个大于 10 的数字：
 
@@ -104,6 +104,20 @@ first_large = for n in *numbers
 
 </YueDisplay>
 
+```yuescript
+key, score = for k, v in pairs data
+  break k, v * 10 if k == "target"
+```
+
+<YueDisplay>
+
+```yue
+key, score = for k, v in pairs data
+  break k, v * 10 if k == "target"
+```
+
+</YueDisplay>
+
 &emsp;&emsp;你还可以结合 for 循环表达式与 continue 语句来过滤值。
 
 &emsp;&emsp;注意出现在函数体末尾的 for 循环，不会被当作是一个表达式并将循环结果累积到一个列表中作为返回值（相反，函数将返回 nil）。如果要函数末尾的循环转换为列表表达式，可以显式地使用返回语句加 for 循环表达式。
diff --git a/doc/docs/zh/doc/control-flow/while-loop.md b/doc/docs/zh/doc/control-flow/while-loop.md
index 3c624fe..0138d85 100644
--- a/doc/docs/zh/doc/control-flow/while-loop.md
+++ b/doc/docs/zh/doc/control-flow/while-loop.md
@@ -45,7 +45,25 @@ until running == false do my_function!
 
 </YueDisplay>
 
-&emsp;&emsp;像 for 循环的语法一样，while 循环也可以作为一个表达式使用。为了使函数返回 while 循环的累积列表值，必须明确使用返回语句返回 while 循环表达式。
+&emsp;&emsp;像 for 循环的语法一样，while 循环也可以作为一个表达式使用。while / until 循环表达式支持 `break` 返回多个值。
+
+```yuescript
+value, doubled = while true
+  n = get_next!
+  break n, n * 2 if n > 10
+```
+
+<YueDisplay>
+
+```yue
+value, doubled = while true
+  n = get_next!
+  break n, n * 2 if n > 10
+```
+
+</YueDisplay>
+
+&emsp;&emsp;为了使函数返回 while 循环的累积列表值，必须明确使用返回语句返回 while 循环表达式。
 
 ## repeat 循环
 
@@ -70,3 +88,25 @@ until i == 0
 ```
 
 </YueDisplay>
+
+&emsp;&emsp;repeat 循环表达式同样支持 `break` 返回多个值：
+
+```yuescript
+i = 1
+value, scaled = repeat
+  break i, i * 100 if i > 3
+  i += 1
+until false
+```
+
+<YueDisplay>
+
+```yue
+i = 1
+value, scaled = repeat
+  break i, i * 100 if i > 3
+  i += 1
+until false
+```
+
+</YueDisplay>
diff --git a/doc/docs/zh/doc/advanced/module.md b/doc/docs/zh/doc/language-basics/module.md
index 6c90f0e..6c90f0e 100644
--- a/doc/docs/zh/doc/advanced/module.md
+++ b/doc/docs/zh/doc/language-basics/module.md
diff --git a/doc/docs/zh/doc/objects/with-statement.md b/doc/docs/zh/doc/objects/with-statement.md
index 0925050..338e2cc 100644
--- a/doc/docs/zh/doc/objects/with-statement.md
+++ b/doc/docs/zh/doc/objects/with-statement.md
@@ -44,6 +44,50 @@ file = with File "favorite_foods.txt"
 
 </YueDisplay>
 
+`with` 表达式支持 `break` 返回一个值：
+
+```yuescript
+result = with obj
+  break .value
+```
+
+<YueDisplay>
+
+```yue
+result = with obj
+  break .value
+```
+
+</YueDisplay>
+
+在 `with` 中使用 `break value` 后，`with` 表达式将不再返回其目标对象，而是返回 `break` 给出的值。
+
+```yuescript
+a = with obj
+  .x = 1
+-- a 是 obj
+
+b = with obj
+  break .x
+-- b 是 .x，不是 obj
+```
+
+<YueDisplay>
+
+```yue
+a = with obj
+  .x = 1
+-- a 是 obj
+
+b = with obj
+  break .x
+-- b 是 .x，不是 obj
+```
+
+</YueDisplay>
+
+与 `for` / `while` / `repeat` / `do` 不同，`with` 只支持一个 break 返回值。
+
 或者…
 
 ```yuescript
diff --git a/spec/inputs/compile_doc.yue b/spec/inputs/compile_doc.yue
index 20f68df..ab621f8 100644
--- a/spec/inputs/compile_doc.yue
+++ b/spec/inputs/compile_doc.yue
@@ -7,7 +7,6 @@ getFiles = (locale) ->
                 "doc/docs/#{locale}doc/advanced/do.md"
                 "doc/docs/#{locale}doc/advanced/line-decorators.md"
                 "doc/docs/#{locale}doc/advanced/macro.md"
-                "doc/docs/#{locale}doc/advanced/module.md"
                 "doc/docs/#{locale}doc/advanced/try.md"
                 "doc/docs/#{locale}doc/data-structures/table-literals.md"
                 "doc/docs/#{locale}doc/data-structures/comprehensions.md"
@@ -34,6 +33,7 @@ getFiles = (locale) ->
                 "doc/docs/#{locale}doc/language-basics/attributes.md"
                 "doc/docs/#{locale}doc/language-basics/operator.md"
                 "doc/docs/#{locale}doc/language-basics/literals.md"
+                "doc/docs/#{locale}doc/language-basics/module.md"
                 "doc/docs/#{locale}doc/reference/license-mit.md"
                 "doc/docs/#{locale}doc/reference/the-yuescript-library.md"
         ]
diff --git a/spec/outputs/codes_from_doc_de.lua b/spec/outputs/codes_from_doc_de.lua
index 7de1a35..428f788 100644
--- a/spec/outputs/codes_from_doc_de.lua
+++ b/spec/outputs/codes_from_doc_de.lua
@@ -3,6 +3,18 @@ do
         print(var)
 end
 print(var)
+local status, value
+do
+        repeat
+                local n = 12
+                if n > 10 then
+                        status, value = "large", n
+                        break
+                end
+                status, value = "small", n
+                break
+        until true
+end
 local counter
 do
         local i = 0
@@ -24,6 +36,18 @@ do
         print(var)
 end
 print(var)
+local status, value
+do
+        repeat
+                local n = 12
+                if n > 10 then
+                        status, value = "large", n
+                        break
+                end
+                status, value = "small", n
+                break
+        until true
+end
 local counter
 do
         local i = 0
@@ -146,268 +170,6 @@ end
 do
         print(123, "hallo")
 end
-do
-        local insert, concat = table.insert, table.concat
-        local C, Ct, Cmt
-        do
-                local _obj_0 = require("lpeg")
-                C, Ct, Cmt = _obj_0.C, _obj_0.Ct, _obj_0.Cmt
-        end
-        local x, y, z
-        do
-                local _obj_0 = require('mymodule')
-                x, y, z = _obj_0.x, _obj_0.y, _obj_0.z
-        end
-        local a, b, c
-        local _obj_0 = require('module')
-        a, b, c = _obj_0.a, _obj_0.b, _obj_0.c
-end
-do
-        local module = require('module')
-        local module_x = require('module_x')
-        local d_a_s_h_e_s = require("d-a-s-h-e-s")
-        local part = require("module.part")
-end
-do
-        local PlayerModule = require("player")
-        local C, Ct, Cmt
-        do
-                local _obj_0 = require("lpeg")
-                C, Ct, Cmt = _obj_0.C, _obj_0.Ct, _obj_0.Cmt
-        end
-        local one, two, ch
-        local _obj_0 = require("export")
-        one, two, ch = _obj_0[1], _obj_0[2], _obj_0.Something.umm[1]
-end
-do
-        local tostring <const> = tostring
-        local concat <const> = table.concat
-        print(concat({
-                "a",
-                tostring(1)
-        }))
-end
-do
-        local print <const> = print
-        local math <const> = math
-        print("hallo")
-        math.random(3)
-end
-do
-        local print <const> = print
-        print(FLAG)
-        FLAG = 123
-end
-local _module_0 = { }
-local a, b, c = 1, 2, 3
-_module_0["a"], _module_0["b"], _module_0["c"] = a, b, c
-local cool = "Katze"
-_module_0["cool"] = cool
-local What
-if this then
-        What = "abc"
-else
-        What = "def"
-end
-_module_0["What"] = What
-local y
-y = function()
-        local hallo = 3434
-end
-_module_0["y"] = y
-local Something
-local _class_0
-local _base_0 = {
-        umm = "cool"
-}
-if _base_0.__index == nil then
-        _base_0.__index = _base_0
-end
-_class_0 = setmetatable({
-        __init = function() end,
-        __base = _base_0,
-        __name = "Something"
-}, {
-        __index = _base_0,
-        __call = function(cls, ...)
-                local _self_0 = setmetatable({ }, _base_0)
-                cls.__init(_self_0, ...)
-                return _self_0
-        end
-})
-_base_0.__class = _class_0
-Something = _class_0
-_module_0["Something"] = Something
-return _module_0
-local _module_0 = { }
-local loadstring, tolua
-do
-        local _obj_0 = yue
-        loadstring, tolua = _obj_0.loadstring, _obj_0.to_lua
-end
-_module_0["loadstring"], _module_0["tolua"] = loadstring, tolua
-local fieldA = tb.itemA.fieldA
-if fieldA == nil then
-        fieldA = 'default'
-end
-_module_0["fieldA"] = fieldA
-return _module_0
-local _module_0 = setmetatable({ }, { })
-_module_0.itemA = tb
-getmetatable(_module_0).__index = items
-_module_0["a-b-c"] = 123
-return _module_0
-local _module_0 = { }
-local d, e, f = 3, 2, 1
-_module_0[#_module_0 + 1] = d
-_module_0[#_module_0 + 1] = e
-_module_0[#_module_0 + 1] = f
-if this then
-        _module_0[#_module_0 + 1] = 123
-else
-        _module_0[#_module_0 + 1] = 456
-end
-local _with_0 = tmp
-local j = 2000
-_module_0[#_module_0 + 1] = _with_0
-return _module_0
-local _module_0 = nil
-_module_0 = function()
-        print("hallo")
-        return 123
-end
-return _module_0
-do
-        local insert, concat = table.insert, table.concat
-        local C, Ct, Cmt
-        do
-                local _obj_0 = require("lpeg")
-                C, Ct, Cmt = _obj_0.C, _obj_0.Ct, _obj_0.Cmt
-        end
-        local x, y, z
-        do
-                local _obj_0 = require('mymodule')
-                x, y, z = _obj_0.x, _obj_0.y, _obj_0.z
-        end
-        local a, b, c
-        local _obj_0 = require('module')
-        a, b, c = _obj_0.a, _obj_0.b, _obj_0.c
-end
-do
-        local module = require('module')
-        local module_x = require('module_x')
-        local d_a_s_h_e_s = require("d-a-s-h-e-s")
-        local part = require("module.part")
-end
-do
-        local PlayerModule = require("player")
-        local C, Ct, Cmt
-        do
-                local _obj_0 = require("lpeg")
-                C, Ct, Cmt = _obj_0.C, _obj_0.Ct, _obj_0.Cmt
-        end
-        local one, two, ch
-        local _obj_0 = require("export")
-        one, two, ch = _obj_0[1], _obj_0[2], _obj_0.Something.umm[1]
-end
-do
-        local tostring <const> = tostring
-        local concat <const> = table.concat
-        print(concat({
-                "a",
-                tostring(1)
-        }))
-end
-do
-        local print <const> = print
-        local math <const> = math
-        print("hallo")
-        math.random(3)
-end
-do
-        local print <const> = print
-        print(FLAG)
-        FLAG = 123
-end
-local _module_0 = { }
-local a, b, c = 1, 2, 3
-_module_0["a"], _module_0["b"], _module_0["c"] = a, b, c
-local cool = "Katze"
-_module_0["cool"] = cool
-local What
-if this then
-        What = "abc"
-else
-        What = "def"
-end
-_module_0["What"] = What
-local y
-y = function()
-        local hallo = 3434
-end
-_module_0["y"] = y
-local Something
-local _class_0
-local _base_0 = {
-        umm = "cool"
-}
-if _base_0.__index == nil then
-        _base_0.__index = _base_0
-end
-_class_0 = setmetatable({
-        __init = function() end,
-        __base = _base_0,
-        __name = "Something"
-}, {
-        __index = _base_0,
-        __call = function(cls, ...)
-                local _self_0 = setmetatable({ }, _base_0)
-                cls.__init(_self_0, ...)
-                return _self_0
-        end
-})
-_base_0.__class = _class_0
-Something = _class_0
-_module_0["Something"] = Something
-return _module_0
-local _module_0 = { }
-local loadstring, tolua
-do
-        local _obj_0 = yue
-        loadstring, tolua = _obj_0.loadstring, _obj_0.to_lua
-end
-_module_0["loadstring"], _module_0["tolua"] = loadstring, tolua
-local fieldA = tb.itemA.fieldA
-if fieldA == nil then
-        fieldA = 'default'
-end
-_module_0["fieldA"] = fieldA
-return _module_0
-local _module_0 = setmetatable({ }, { })
-_module_0.itemA = tb
-getmetatable(_module_0).__index = items
-_module_0["a-b-c"] = 123
-return _module_0
-local _module_0 = { }
-local d, e, f = 3, 2, 1
-_module_0[#_module_0 + 1] = d
-_module_0[#_module_0 + 1] = e
-_module_0[#_module_0 + 1] = f
-if this then
-        _module_0[#_module_0 + 1] = 123
-else
-        _module_0[#_module_0 + 1] = 456
-end
-local _with_0 = tmp
-local j = 2000
-_module_0[#_module_0 + 1] = _with_0
-return _module_0
-local _module_0 = nil
-_module_0 = function()
-        print("hallo")
-        return 123
-end
-return _module_0
 xpcall(function()
         return func(1, 2, 3)
 end, function(err)
@@ -2395,6 +2157,12 @@ local file
 local _with_0 = File("Lieblingsessen.txt")
 _with_0:set_encoding("utf8")
 file = _with_0
+local result
+local _with_0 = obj
+repeat
+        result = _with_0.value
+        break
+until true
 local create_person
 create_person = function(name, relatives)
         local _with_0 = Person()
@@ -2435,6 +2203,12 @@ local file
 local _with_0 = File("Lieblingsessen.txt")
 _with_0:set_encoding("utf8")
 file = _with_0
+local result
+local _with_0 = obj
+repeat
+        result = _with_0.value
+        break
+until true
 local create_person
 create_person = function(name, relatives)
         local _with_0 = Person()
@@ -3268,6 +3042,13 @@ for _index_0 = 1, #_list_0 do
                 break
         end
 end
+local key, score
+for k, v in pairs(data) do
+        if k == "target" then
+                key, score = k, v * 10
+                break
+        end
+end
 local func_a
 func_a = function()
         for i = 1, 10 do
@@ -3330,6 +3111,13 @@ for _index_0 = 1, #_list_0 do
                 break
         end
 end
+local key, score
+for k, v in pairs(data) do
+        if k == "target" then
+                key, score = k, v * 10
+                break
+        end
+end
 local func_a
 func_a = function()
         for i = 1, 10 do
@@ -4008,11 +3796,32 @@ end
 while not (running == false) do
         my_function()
 end
+local value, doubled
+local _val_0, _val_1
+while true do
+        local n = get_next()
+        if n > 10 then
+                _val_0, _val_1 = n, n * 2
+                break
+        end
+end
+value, doubled = _val_0, _val_1
 local i = 10
 repeat
         print(i)
         i = i - 1
 until i == 0
+local i = 1
+local value, scaled
+local _val_0, _val_1
+repeat
+        if i > 3 then
+                _val_0, _val_1 = i, i * 100
+                break
+        end
+        i = i + 1
+until false
+value, scaled = _val_0, _val_1
 local i = 10
 while i > 0 do
         print(i)
@@ -4029,11 +3838,32 @@ end
 while not (running == false) do
         my_function()
 end
+local value, doubled
+local _val_0, _val_1
+while true do
+        local n = get_next()
+        if n > 10 then
+                _val_0, _val_1 = n, n * 2
+                break
+        end
+end
+value, doubled = _val_0, _val_1
 local i = 10
 repeat
         print(i)
         i = i - 1
 until i == 0
+local i = 1
+local value, scaled
+local _val_0, _val_1
+repeat
+        if i > 3 then
+                _val_0, _val_1 = i, i * 100
+                break
+        end
+        i = i + 1
+until false
+value, scaled = _val_0, _val_1
 local my_object = {
         value = 1000,
         write = function(self)
@@ -5136,3 +4966,265 @@ fn = function()
         return str
 end
 local str = "path: \"C:\\Program Files\\App\"\nnote: 'He said: \"" .. tostring(Hello) .. "!\"'"
+do
+        local insert, concat = table.insert, table.concat
+        local C, Ct, Cmt
+        do
+                local _obj_0 = require("lpeg")
+                C, Ct, Cmt = _obj_0.C, _obj_0.Ct, _obj_0.Cmt
+        end
+        local x, y, z
+        do
+                local _obj_0 = require('mymodule')
+                x, y, z = _obj_0.x, _obj_0.y, _obj_0.z
+        end
+        local a, b, c
+        local _obj_0 = require('module')
+        a, b, c = _obj_0.a, _obj_0.b, _obj_0.c
+end
+do
+        local module = require('module')
+        local module_x = require('module_x')
+        local d_a_s_h_e_s = require("d-a-s-h-e-s")
+        local part = require("module.part")
+end
+do
+        local PlayerModule = require("player")
+        local C, Ct, Cmt
+        do
+                local _obj_0 = require("lpeg")
+                C, Ct, Cmt = _obj_0.C, _obj_0.Ct, _obj_0.Cmt
+        end
+        local one, two, ch
+        local _obj_0 = require("export")
+        one, two, ch = _obj_0[1], _obj_0[2], _obj_0.Something.umm[1]
+end
+do
+        local tostring <const> = tostring
+        local concat <const> = table.concat
+        print(concat({
+                "a",
+                tostring(1)
+        }))
+end
+do
+        local print <const> = print
+        local math <const> = math
+        print("hallo")
+        math.random(3)
+end
+do
+        local print <const> = print
+        print(FLAG)
+        FLAG = 123
+end
+local _module_0 = { }
+local a, b, c = 1, 2, 3
+_module_0["a"], _module_0["b"], _module_0["c"] = a, b, c
+local cool = "Katze"
+_module_0["cool"] = cool
+local What
+if this then
+        What = "abc"
+else
+        What = "def"
+end
+_module_0["What"] = What
+local y
+y = function()
+        local hallo = 3434
+end
+_module_0["y"] = y
+local Something
+local _class_0
+local _base_0 = {
+        umm = "cool"
+}
+if _base_0.__index == nil then
+        _base_0.__index = _base_0
+end
+_class_0 = setmetatable({
+        __init = function() end,
+        __base = _base_0,
+        __name = "Something"
+}, {
+        __index = _base_0,
+        __call = function(cls, ...)
+                local _self_0 = setmetatable({ }, _base_0)
+                cls.__init(_self_0, ...)
+                return _self_0
+        end
+})
+_base_0.__class = _class_0
+Something = _class_0
+_module_0["Something"] = Something
+return _module_0
+local _module_0 = { }
+local loadstring, tolua
+do
+        local _obj_0 = yue
+        loadstring, tolua = _obj_0.loadstring, _obj_0.to_lua
+end
+_module_0["loadstring"], _module_0["tolua"] = loadstring, tolua
+local fieldA = tb.itemA.fieldA
+if fieldA == nil then
+        fieldA = 'default'
+end
+_module_0["fieldA"] = fieldA
+return _module_0
+local _module_0 = setmetatable({ }, { })
+_module_0.itemA = tb
+getmetatable(_module_0).__index = items
+_module_0["a-b-c"] = 123
+return _module_0
+local _module_0 = { }
+local d, e, f = 3, 2, 1
+_module_0[#_module_0 + 1] = d
+_module_0[#_module_0 + 1] = e
+_module_0[#_module_0 + 1] = f
+if this then
+        _module_0[#_module_0 + 1] = 123
+else
+        _module_0[#_module_0 + 1] = 456
+end
+local _with_0 = tmp
+local j = 2000
+_module_0[#_module_0 + 1] = _with_0
+return _module_0
+local _module_0 = nil
+_module_0 = function()
+        print("hallo")
+        return 123
+end
+return _module_0
+do
+        local insert, concat = table.insert, table.concat
+        local C, Ct, Cmt
+        do
+                local _obj_0 = require("lpeg")
+                C, Ct, Cmt = _obj_0.C, _obj_0.Ct, _obj_0.Cmt
+        end
+        local x, y, z
+        do
+                local _obj_0 = require('mymodule')
+                x, y, z = _obj_0.x, _obj_0.y, _obj_0.z
+        end
+        local a, b, c
+        local _obj_0 = require('module')
+        a, b, c = _obj_0.a, _obj_0.b, _obj_0.c
+end
+do
+        local module = require('module')
+        local module_x = require('module_x')
+        local d_a_s_h_e_s = require("d-a-s-h-e-s")
+        local part = require("module.part")
+end
+do
+        local PlayerModule = require("player")
+        local C, Ct, Cmt
+        do
+                local _obj_0 = require("lpeg")
+                C, Ct, Cmt = _obj_0.C, _obj_0.Ct, _obj_0.Cmt
+        end
+        local one, two, ch
+        local _obj_0 = require("export")
+        one, two, ch = _obj_0[1], _obj_0[2], _obj_0.Something.umm[1]
+end
+do
+        local tostring <const> = tostring
+        local concat <const> = table.concat
+        print(concat({
+                "a",
+                tostring(1)
+        }))
+end
+do
+        local print <const> = print
+        local math <const> = math
+        print("hallo")
+        math.random(3)
+end
+do
+        local print <const> = print
+        print(FLAG)
+        FLAG = 123
+end
+local _module_0 = { }
+local a, b, c = 1, 2, 3
+_module_0["a"], _module_0["b"], _module_0["c"] = a, b, c
+local cool = "Katze"
+_module_0["cool"] = cool
+local What
+if this then
+        What = "abc"
+else
+        What = "def"
+end
+_module_0["What"] = What
+local y
+y = function()
+        local hallo = 3434
+end
+_module_0["y"] = y
+local Something
+local _class_0
+local _base_0 = {
+        umm = "cool"
+}
+if _base_0.__index == nil then
+        _base_0.__index = _base_0
+end
+_class_0 = setmetatable({
+        __init = function() end,
+        __base = _base_0,
+        __name = "Something"
+}, {
+        __index = _base_0,
+        __call = function(cls, ...)
+                local _self_0 = setmetatable({ }, _base_0)
+                cls.__init(_self_0, ...)
+                return _self_0
+        end
+})
+_base_0.__class = _class_0
+Something = _class_0
+_module_0["Something"] = Something
+return _module_0
+local _module_0 = { }
+local loadstring, tolua
+do
+        local _obj_0 = yue
+        loadstring, tolua = _obj_0.loadstring, _obj_0.to_lua
+end
+_module_0["loadstring"], _module_0["tolua"] = loadstring, tolua
+local fieldA = tb.itemA.fieldA
+if fieldA == nil then
+        fieldA = 'default'
+end
+_module_0["fieldA"] = fieldA
+return _module_0
+local _module_0 = setmetatable({ }, { })
+_module_0.itemA = tb
+getmetatable(_module_0).__index = items
+_module_0["a-b-c"] = 123
+return _module_0
+local _module_0 = { }
+local d, e, f = 3, 2, 1
+_module_0[#_module_0 + 1] = d
+_module_0[#_module_0 + 1] = e
+_module_0[#_module_0 + 1] = f
+if this then
+        _module_0[#_module_0 + 1] = 123
+else
+        _module_0[#_module_0 + 1] = 456
+end
+local _with_0 = tmp
+local j = 2000
+_module_0[#_module_0 + 1] = _with_0
+return _module_0
+local _module_0 = nil
+_module_0 = function()
+        print("hallo")
+        return 123
+end
+return _module_0
diff --git a/spec/outputs/codes_from_doc_en.lua b/spec/outputs/codes_from_doc_en.lua
index cd83bbf..4006605 100644
--- a/spec/outputs/codes_from_doc_en.lua
+++ b/spec/outputs/codes_from_doc_en.lua
@@ -3,6 +3,18 @@ do
         print(var)
 end
 print(var)
+local status, value
+do
+        repeat
+                local n = 12
+                if n > 10 then
+                        status, value = "large", n
+                        break
+                end
+                status, value = "small", n
+                break
+        until true
+end
 local counter
 do
         local i = 0
@@ -24,6 +36,18 @@ do
         print(var)
 end
 print(var)
+local status, value
+do
+        repeat
+                local n = 12
+                if n > 10 then
+                        status, value = "large", n
+                        break
+                end
+                status, value = "small", n
+                break
+        until true
+end
 local counter
 do
         local i = 0
@@ -146,268 +170,6 @@ end
 do
         print(123, "hello")
 end
-do
-        local insert, concat = table.insert, table.concat
-        local C, Ct, Cmt
-        do
-                local _obj_0 = require("lpeg")
-                C, Ct, Cmt = _obj_0.C, _obj_0.Ct, _obj_0.Cmt
-        end
-        local x, y, z
-        do
-                local _obj_0 = require('mymodule')
-                x, y, z = _obj_0.x, _obj_0.y, _obj_0.z
-        end
-        local a, b, c
-        local _obj_0 = require('module')
-        a, b, c = _obj_0.a, _obj_0.b, _obj_0.c
-end
-do
-        local module = require('module')
-        local module_x = require('module_x')
-        local d_a_s_h_e_s = require("d-a-s-h-e-s")
-        local part = require("module.part")
-end
-do
-        local PlayerModule = require("player")
-        local C, Ct, Cmt
-        do
-                local _obj_0 = require("lpeg")
-                C, Ct, Cmt = _obj_0.C, _obj_0.Ct, _obj_0.Cmt
-        end
-        local one, two, ch
-        local _obj_0 = require("export")
-        one, two, ch = _obj_0[1], _obj_0[2], _obj_0.Something.umm[1]
-end
-do
-        local tostring <const> = tostring
-        local concat <const> = table.concat
-        print(concat({
-                "a",
-                tostring(1)
-        }))
-end
-do
-        local print <const> = print
-        local math <const> = math
-        print("hello")
-        math.random(3)
-end
-do
-        local print <const> = print
-        print(FLAG)
-        FLAG = 123
-end
-local _module_0 = { }
-local a, b, c = 1, 2, 3
-_module_0["a"], _module_0["b"], _module_0["c"] = a, b, c
-local cool = "cat"
-_module_0["cool"] = cool
-local What
-if this then
-        What = "abc"
-else
-        What = "def"
-end
-_module_0["What"] = What
-local y
-y = function()
-        local hallo = 3434
-end
-_module_0["y"] = y
-local Something
-local _class_0
-local _base_0 = {
-        umm = "cool"
-}
-if _base_0.__index == nil then
-        _base_0.__index = _base_0
-end
-_class_0 = setmetatable({
-        __init = function() end,
-        __base = _base_0,
-        __name = "Something"
-}, {
-        __index = _base_0,
-        __call = function(cls, ...)
-                local _self_0 = setmetatable({ }, _base_0)
-                cls.__init(_self_0, ...)
-                return _self_0
-        end
-})
-_base_0.__class = _class_0
-Something = _class_0
-_module_0["Something"] = Something
-return _module_0
-local _module_0 = { }
-local loadstring, tolua
-do
-        local _obj_0 = yue
-        loadstring, tolua = _obj_0.loadstring, _obj_0.to_lua
-end
-_module_0["loadstring"], _module_0["tolua"] = loadstring, tolua
-local fieldA = tb.itemA.fieldA
-if fieldA == nil then
-        fieldA = 'default'
-end
-_module_0["fieldA"] = fieldA
-return _module_0
-local _module_0 = setmetatable({ }, { })
-_module_0.itemA = tb
-getmetatable(_module_0).__index = items
-_module_0["a-b-c"] = 123
-return _module_0
-local _module_0 = { }
-local d, e, f = 3, 2, 1
-_module_0[#_module_0 + 1] = d
-_module_0[#_module_0 + 1] = e
-_module_0[#_module_0 + 1] = f
-if this then
-        _module_0[#_module_0 + 1] = 123
-else
-        _module_0[#_module_0 + 1] = 456
-end
-local _with_0 = tmp
-local j = 2000
-_module_0[#_module_0 + 1] = _with_0
-return _module_0
-local _module_0 = nil
-_module_0 = function()
-        print("hello")
-        return 123
-end
-return _module_0
-do
-        local insert, concat = table.insert, table.concat
-        local C, Ct, Cmt
-        do
-                local _obj_0 = require("lpeg")
-                C, Ct, Cmt = _obj_0.C, _obj_0.Ct, _obj_0.Cmt
-        end
-        local x, y, z
-        do
-                local _obj_0 = require('mymodule')
-                x, y, z = _obj_0.x, _obj_0.y, _obj_0.z
-        end
-        local a, b, c
-        local _obj_0 = require('module')
-        a, b, c = _obj_0.a, _obj_0.b, _obj_0.c
-end
-do
-        local module = require('module')
-        local module_x = require('module_x')
-        local d_a_s_h_e_s = require("d-a-s-h-e-s")
-        local part = require("module.part")
-end
-do
-        local PlayerModule = require("player")
-        local C, Ct, Cmt
-        do
-                local _obj_0 = require("lpeg")
-                C, Ct, Cmt = _obj_0.C, _obj_0.Ct, _obj_0.Cmt
-        end
-        local one, two, ch
-        local _obj_0 = require("export")
-        one, two, ch = _obj_0[1], _obj_0[2], _obj_0.Something.umm[1]
-end
-do
-        local tostring <const> = tostring
-        local concat <const> = table.concat
-        print(concat({
-                "a",
-                tostring(1)
-        }))
-end
-do
-        local print <const> = print
-        local math <const> = math
-        print("hello")
-        math.random(3)
-end
-do
-        local print <const> = print
-        print(FLAG)
-        FLAG = 123
-end
-local _module_0 = { }
-local a, b, c = 1, 2, 3
-_module_0["a"], _module_0["b"], _module_0["c"] = a, b, c
-local cool = "cat"
-_module_0["cool"] = cool
-local What
-if this then
-        What = "abc"
-else
-        What = "def"
-end
-_module_0["What"] = What
-local y
-y = function()
-        local hallo = 3434
-end
-_module_0["y"] = y
-local Something
-local _class_0
-local _base_0 = {
-        umm = "cool"
-}
-if _base_0.__index == nil then
-        _base_0.__index = _base_0
-end
-_class_0 = setmetatable({
-        __init = function() end,
-        __base = _base_0,
-        __name = "Something"
-}, {
-        __index = _base_0,
-        __call = function(cls, ...)
-                local _self_0 = setmetatable({ }, _base_0)
-                cls.__init(_self_0, ...)
-                return _self_0
-        end
-})
-_base_0.__class = _class_0
-Something = _class_0
-_module_0["Something"] = Something
-return _module_0
-local _module_0 = { }
-local loadstring, tolua
-do
-        local _obj_0 = yue
-        loadstring, tolua = _obj_0.loadstring, _obj_0.to_lua
-end
-_module_0["loadstring"], _module_0["tolua"] = loadstring, tolua
-local fieldA = tb.itemA.fieldA
-if fieldA == nil then
-        fieldA = 'default'
-end
-_module_0["fieldA"] = fieldA
-return _module_0
-local _module_0 = setmetatable({ }, { })
-_module_0.itemA = tb
-getmetatable(_module_0).__index = items
-_module_0["a-b-c"] = 123
-return _module_0
-local _module_0 = { }
-local d, e, f = 3, 2, 1
-_module_0[#_module_0 + 1] = d
-_module_0[#_module_0 + 1] = e
-_module_0[#_module_0 + 1] = f
-if this then
-        _module_0[#_module_0 + 1] = 123
-else
-        _module_0[#_module_0 + 1] = 456
-end
-local _with_0 = tmp
-local j = 2000
-_module_0[#_module_0 + 1] = _with_0
-return _module_0
-local _module_0 = nil
-_module_0 = function()
-        print("hello")
-        return 123
-end
-return _module_0
 xpcall(function()
         return func(1, 2, 3)
 end, function(err)
@@ -2395,6 +2157,12 @@ local file
 local _with_0 = File("favorite_foods.txt")
 _with_0:set_encoding("utf8")
 file = _with_0
+local result
+local _with_0 = obj
+repeat
+        result = _with_0.value
+        break
+until true
 local create_person
 create_person = function(name, relatives)
         local _with_0 = Person()
@@ -2435,6 +2203,12 @@ local file
 local _with_0 = File("favorite_foods.txt")
 _with_0:set_encoding("utf8")
 file = _with_0
+local result
+local _with_0 = obj
+repeat
+        result = _with_0.value
+        break
+until true
 local create_person
 create_person = function(name, relatives)
         local _with_0 = Person()
@@ -3268,6 +3042,13 @@ for _index_0 = 1, #_list_0 do
                 break
         end
 end
+local key, score
+for k, v in pairs(data) do
+        if k == "target" then
+                key, score = k, v * 10
+                break
+        end
+end
 local func_a
 func_a = function()
         for i = 1, 10 do
@@ -3330,6 +3111,13 @@ for _index_0 = 1, #_list_0 do
                 break
         end
 end
+local key, score
+for k, v in pairs(data) do
+        if k == "target" then
+                key, score = k, v * 10
+                break
+        end
+end
 local func_a
 func_a = function()
         for i = 1, 10 do
@@ -4008,11 +3796,32 @@ end
 while not (running == false) do
         my_function()
 end
+local value, doubled
+local _val_0, _val_1
+while true do
+        local n = get_next()
+        if n > 10 then
+                _val_0, _val_1 = n, n * 2
+                break
+        end
+end
+value, doubled = _val_0, _val_1
 local i = 10
 repeat
         print(i)
         i = i - 1
 until i == 0
+local i = 1
+local value, scaled
+local _val_0, _val_1
+repeat
+        if i > 3 then
+                _val_0, _val_1 = i, i * 100
+                break
+        end
+        i = i + 1
+until false
+value, scaled = _val_0, _val_1
 local i = 10
 while i > 0 do
         print(i)
@@ -4029,11 +3838,32 @@ end
 while not (running == false) do
         my_function()
 end
+local value, doubled
+local _val_0, _val_1
+while true do
+        local n = get_next()
+        if n > 10 then
+                _val_0, _val_1 = n, n * 2
+                break
+        end
+end
+value, doubled = _val_0, _val_1
 local i = 10
 repeat
         print(i)
         i = i - 1
 until i == 0
+local i = 1
+local value, scaled
+local _val_0, _val_1
+repeat
+        if i > 3 then
+                _val_0, _val_1 = i, i * 100
+                break
+        end
+        i = i + 1
+until false
+value, scaled = _val_0, _val_1
 local my_object = {
         value = 1000,
         write = function(self)
@@ -5136,3 +4966,265 @@ fn = function()
         return str
 end
 local str = "path: \"C:\\Program Files\\App\"\nnote: 'He said: \"" .. tostring(Hello) .. "!\"'"
+do
+        local insert, concat = table.insert, table.concat
+        local C, Ct, Cmt
+        do
+                local _obj_0 = require("lpeg")
+                C, Ct, Cmt = _obj_0.C, _obj_0.Ct, _obj_0.Cmt
+        end
+        local x, y, z
+        do
+                local _obj_0 = require('mymodule')
+                x, y, z = _obj_0.x, _obj_0.y, _obj_0.z
+        end
+        local a, b, c
+        local _obj_0 = require('module')
+        a, b, c = _obj_0.a, _obj_0.b, _obj_0.c
+end
+do
+        local module = require('module')
+        local module_x = require('module_x')
+        local d_a_s_h_e_s = require("d-a-s-h-e-s")
+        local part = require("module.part")
+end
+do
+        local PlayerModule = require("player")
+        local C, Ct, Cmt
+        do
+                local _obj_0 = require("lpeg")
+                C, Ct, Cmt = _obj_0.C, _obj_0.Ct, _obj_0.Cmt
+        end
+        local one, two, ch
+        local _obj_0 = require("export")
+        one, two, ch = _obj_0[1], _obj_0[2], _obj_0.Something.umm[1]
+end
+do
+        local tostring <const> = tostring
+        local concat <const> = table.concat
+        print(concat({
+                "a",
+                tostring(1)
+        }))
+end
+do
+        local print <const> = print
+        local math <const> = math
+        print("hello")
+        math.random(3)
+end
+do
+        local print <const> = print
+        print(FLAG)
+        FLAG = 123
+end
+local _module_0 = { }
+local a, b, c = 1, 2, 3
+_module_0["a"], _module_0["b"], _module_0["c"] = a, b, c
+local cool = "cat"
+_module_0["cool"] = cool
+local What
+if this then
+        What = "abc"
+else
+        What = "def"
+end
+_module_0["What"] = What
+local y
+y = function()
+        local hallo = 3434
+end
+_module_0["y"] = y
+local Something
+local _class_0
+local _base_0 = {
+        umm = "cool"
+}
+if _base_0.__index == nil then
+        _base_0.__index = _base_0
+end
+_class_0 = setmetatable({
+        __init = function() end,
+        __base = _base_0,
+        __name = "Something"
+}, {
+        __index = _base_0,
+        __call = function(cls, ...)
+                local _self_0 = setmetatable({ }, _base_0)
+                cls.__init(_self_0, ...)
+                return _self_0
+        end
+})
+_base_0.__class = _class_0
+Something = _class_0
+_module_0["Something"] = Something
+return _module_0
+local _module_0 = { }
+local loadstring, tolua
+do
+        local _obj_0 = yue
+        loadstring, tolua = _obj_0.loadstring, _obj_0.to_lua
+end
+_module_0["loadstring"], _module_0["tolua"] = loadstring, tolua
+local fieldA = tb.itemA.fieldA
+if fieldA == nil then
+        fieldA = 'default'
+end
+_module_0["fieldA"] = fieldA
+return _module_0
+local _module_0 = setmetatable({ }, { })
+_module_0.itemA = tb
+getmetatable(_module_0).__index = items
+_module_0["a-b-c"] = 123
+return _module_0
+local _module_0 = { }
+local d, e, f = 3, 2, 1
+_module_0[#_module_0 + 1] = d
+_module_0[#_module_0 + 1] = e
+_module_0[#_module_0 + 1] = f
+if this then
+        _module_0[#_module_0 + 1] = 123
+else
+        _module_0[#_module_0 + 1] = 456
+end
+local _with_0 = tmp
+local j = 2000
+_module_0[#_module_0 + 1] = _with_0
+return _module_0
+local _module_0 = nil
+_module_0 = function()
+        print("hello")
+        return 123
+end
+return _module_0
+do
+        local insert, concat = table.insert, table.concat
+        local C, Ct, Cmt
+        do
+                local _obj_0 = require("lpeg")
+                C, Ct, Cmt = _obj_0.C, _obj_0.Ct, _obj_0.Cmt
+        end
+        local x, y, z
+        do
+                local _obj_0 = require('mymodule')
+                x, y, z = _obj_0.x, _obj_0.y, _obj_0.z
+        end
+        local a, b, c
+        local _obj_0 = require('module')
+        a, b, c = _obj_0.a, _obj_0.b, _obj_0.c
+end
+do
+        local module = require('module')
+        local module_x = require('module_x')
+        local d_a_s_h_e_s = require("d-a-s-h-e-s")
+        local part = require("module.part")
+end
+do
+        local PlayerModule = require("player")
+        local C, Ct, Cmt
+        do
+                local _obj_0 = require("lpeg")
+                C, Ct, Cmt = _obj_0.C, _obj_0.Ct, _obj_0.Cmt
+        end
+        local one, two, ch
+        local _obj_0 = require("export")
+        one, two, ch = _obj_0[1], _obj_0[2], _obj_0.Something.umm[1]
+end
+do
+        local tostring <const> = tostring
+        local concat <const> = table.concat
+        print(concat({
+                "a",
+                tostring(1)
+        }))
+end
+do
+        local print <const> = print
+        local math <const> = math
+        print("hello")
+        math.random(3)
+end
+do
+        local print <const> = print
+        print(FLAG)
+        FLAG = 123
+end
+local _module_0 = { }
+local a, b, c = 1, 2, 3
+_module_0["a"], _module_0["b"], _module_0["c"] = a, b, c
+local cool = "cat"
+_module_0["cool"] = cool
+local What
+if this then
+        What = "abc"
+else
+        What = "def"
+end
+_module_0["What"] = What
+local y
+y = function()
+        local hallo = 3434
+end
+_module_0["y"] = y
+local Something
+local _class_0
+local _base_0 = {
+        umm = "cool"
+}
+if _base_0.__index == nil then
+        _base_0.__index = _base_0
+end
+_class_0 = setmetatable({
+        __init = function() end,
+        __base = _base_0,
+        __name = "Something"
+}, {
+        __index = _base_0,
+        __call = function(cls, ...)
+                local _self_0 = setmetatable({ }, _base_0)
+                cls.__init(_self_0, ...)
+                return _self_0
+        end
+})
+_base_0.__class = _class_0
+Something = _class_0
+_module_0["Something"] = Something
+return _module_0
+local _module_0 = { }
+local loadstring, tolua
+do
+        local _obj_0 = yue
+        loadstring, tolua = _obj_0.loadstring, _obj_0.to_lua
+end
+_module_0["loadstring"], _module_0["tolua"] = loadstring, tolua
+local fieldA = tb.itemA.fieldA
+if fieldA == nil then
+        fieldA = 'default'
+end
+_module_0["fieldA"] = fieldA
+return _module_0
+local _module_0 = setmetatable({ }, { })
+_module_0.itemA = tb
+getmetatable(_module_0).__index = items
+_module_0["a-b-c"] = 123
+return _module_0
+local _module_0 = { }
+local d, e, f = 3, 2, 1
+_module_0[#_module_0 + 1] = d
+_module_0[#_module_0 + 1] = e
+_module_0[#_module_0 + 1] = f
+if this then
+        _module_0[#_module_0 + 1] = 123
+else
+        _module_0[#_module_0 + 1] = 456
+end
+local _with_0 = tmp
+local j = 2000
+_module_0[#_module_0 + 1] = _with_0
+return _module_0
+local _module_0 = nil
+_module_0 = function()
+        print("hello")
+        return 123
+end
+return _module_0
diff --git a/spec/outputs/codes_from_doc_id-id.lua b/spec/outputs/codes_from_doc_id-id.lua
index b024989..7d95eaa 100644
--- a/spec/outputs/codes_from_doc_id-id.lua
+++ b/spec/outputs/codes_from_doc_id-id.lua
@@ -3,6 +3,18 @@ do
         print(var)
 end
 print(var)
+local status, value
+do
+        repeat
+                local n = 12
+                if n > 10 then
+                        status, value = "large", n
+                        break
+                end
+                status, value = "small", n
+                break
+        until true
+end
 local counter
 do
         local i = 0
@@ -24,6 +36,18 @@ do
         print(var)
 end
 print(var)
+local status, value
+do
+        repeat
+                local n = 12
+                if n > 10 then
+                        status, value = "large", n
+                        break
+                end
+                status, value = "small", n
+                break
+        until true
+end
 local counter
 do
         local i = 0
@@ -146,268 +170,6 @@ end
 do
         print(123, "hello")
 end
-do
-        local insert, concat = table.insert, table.concat
-        local C, Ct, Cmt
-        do
-                local _obj_0 = require("lpeg")
-                C, Ct, Cmt = _obj_0.C, _obj_0.Ct, _obj_0.Cmt
-        end
-        local x, y, z
-        do
-                local _obj_0 = require('mymodule')
-                x, y, z = _obj_0.x, _obj_0.y, _obj_0.z
-        end
-        local a, b, c
-        local _obj_0 = require('module')
-        a, b, c = _obj_0.a, _obj_0.b, _obj_0.c
-end
-do
-        local module = require('module')
-        local module_x = require('module_x')
-        local d_a_s_h_e_s = require("d-a-s-h-e-s")
-        local part = require("module.part")
-end
-do
-        local PlayerModule = require("player")
-        local C, Ct, Cmt
-        do
-                local _obj_0 = require("lpeg")
-                C, Ct, Cmt = _obj_0.C, _obj_0.Ct, _obj_0.Cmt
-        end
-        local one, two, ch
-        local _obj_0 = require("export")
-        one, two, ch = _obj_0[1], _obj_0[2], _obj_0.Something.umm[1]
-end
-do
-        local tostring <const> = tostring
-        local concat <const> = table.concat
-        print(concat({
-                "a",
-                tostring(1)
-        }))
-end
-do
-        local print <const> = print
-        local math <const> = math
-        print("hello")
-        math.random(3)
-end
-do
-        local print <const> = print
-        print(FLAG)
-        FLAG = 123
-end
-local _module_0 = { }
-local a, b, c = 1, 2, 3
-_module_0["a"], _module_0["b"], _module_0["c"] = a, b, c
-local cool = "cat"
-_module_0["cool"] = cool
-local What
-if this then
-        What = "abc"
-else
-        What = "def"
-end
-_module_0["What"] = What
-local y
-y = function()
-        local hallo = 3434
-end
-_module_0["y"] = y
-local Something
-local _class_0
-local _base_0 = {
-        umm = "cool"
-}
-if _base_0.__index == nil then
-        _base_0.__index = _base_0
-end
-_class_0 = setmetatable({
-        __init = function() end,
-        __base = _base_0,
-        __name = "Something"
-}, {
-        __index = _base_0,
-        __call = function(cls, ...)
-                local _self_0 = setmetatable({ }, _base_0)
-                cls.__init(_self_0, ...)
-                return _self_0
-        end
-})
-_base_0.__class = _class_0
-Something = _class_0
-_module_0["Something"] = Something
-return _module_0
-local _module_0 = { }
-local loadstring, tolua
-do
-        local _obj_0 = yue
-        loadstring, tolua = _obj_0.loadstring, _obj_0.to_lua
-end
-_module_0["loadstring"], _module_0["tolua"] = loadstring, tolua
-local fieldA = tb.itemA.fieldA
-if fieldA == nil then
-        fieldA = 'default'
-end
-_module_0["fieldA"] = fieldA
-return _module_0
-local _module_0 = setmetatable({ }, { })
-_module_0.itemA = tb
-getmetatable(_module_0).__index = items
-_module_0["a-b-c"] = 123
-return _module_0
-local _module_0 = { }
-local d, e, f = 3, 2, 1
-_module_0[#_module_0 + 1] = d
-_module_0[#_module_0 + 1] = e
-_module_0[#_module_0 + 1] = f
-if this then
-        _module_0[#_module_0 + 1] = 123
-else
-        _module_0[#_module_0 + 1] = 456
-end
-local _with_0 = tmp
-local j = 2000
-_module_0[#_module_0 + 1] = _with_0
-return _module_0
-local _module_0 = nil
-_module_0 = function()
-        print("hello")
-        return 123
-end
-return _module_0
-do
-        local insert, concat = table.insert, table.concat
-        local C, Ct, Cmt
-        do
-                local _obj_0 = require("lpeg")
-                C, Ct, Cmt = _obj_0.C, _obj_0.Ct, _obj_0.Cmt
-        end
-        local x, y, z
-        do
-                local _obj_0 = require('mymodule')
-                x, y, z = _obj_0.x, _obj_0.y, _obj_0.z
-        end
-        local a, b, c
-        local _obj_0 = require('module')
-        a, b, c = _obj_0.a, _obj_0.b, _obj_0.c
-end
-do
-        local module = require('module')
-        local module_x = require('module_x')
-        local d_a_s_h_e_s = require("d-a-s-h-e-s")
-        local part = require("module.part")
-end
-do
-        local PlayerModule = require("player")
-        local C, Ct, Cmt
-        do
-                local _obj_0 = require("lpeg")
-                C, Ct, Cmt = _obj_0.C, _obj_0.Ct, _obj_0.Cmt
-        end
-        local one, two, ch
-        local _obj_0 = require("export")
-        one, two, ch = _obj_0[1], _obj_0[2], _obj_0.Something.umm[1]
-end
-do
-        local tostring <const> = tostring
-        local concat <const> = table.concat
-        print(concat({
-                "a",
-                tostring(1)
-        }))
-end
-do
-        local print <const> = print
-        local math <const> = math
-        print("hello")
-        math.random(3)
-end
-do
-        local print <const> = print
-        print(FLAG)
-        FLAG = 123
-end
-local _module_0 = { }
-local a, b, c = 1, 2, 3
-_module_0["a"], _module_0["b"], _module_0["c"] = a, b, c
-local cool = "cat"
-_module_0["cool"] = cool
-local What
-if this then
-        What = "abc"
-else
-        What = "def"
-end
-_module_0["What"] = What
-local y
-y = function()
-        local hallo = 3434
-end
-_module_0["y"] = y
-local Something
-local _class_0
-local _base_0 = {
-        umm = "cool"
-}
-if _base_0.__index == nil then
-        _base_0.__index = _base_0
-end
-_class_0 = setmetatable({
-        __init = function() end,
-        __base = _base_0,
-        __name = "Something"
-}, {
-        __index = _base_0,
-        __call = function(cls, ...)
-                local _self_0 = setmetatable({ }, _base_0)
-                cls.__init(_self_0, ...)
-                return _self_0
-        end
-})
-_base_0.__class = _class_0
-Something = _class_0
-_module_0["Something"] = Something
-return _module_0
-local _module_0 = { }
-local loadstring, tolua
-do
-        local _obj_0 = yue
-        loadstring, tolua = _obj_0.loadstring, _obj_0.to_lua
-end
-_module_0["loadstring"], _module_0["tolua"] = loadstring, tolua
-local fieldA = tb.itemA.fieldA
-if fieldA == nil then
-        fieldA = 'default'
-end
-_module_0["fieldA"] = fieldA
-return _module_0
-local _module_0 = setmetatable({ }, { })
-_module_0.itemA = tb
-getmetatable(_module_0).__index = items
-_module_0["a-b-c"] = 123
-return _module_0
-local _module_0 = { }
-local d, e, f = 3, 2, 1
-_module_0[#_module_0 + 1] = d
-_module_0[#_module_0 + 1] = e
-_module_0[#_module_0 + 1] = f
-if this then
-        _module_0[#_module_0 + 1] = 123
-else
-        _module_0[#_module_0 + 1] = 456
-end
-local _with_0 = tmp
-local j = 2000
-_module_0[#_module_0 + 1] = _with_0
-return _module_0
-local _module_0 = nil
-_module_0 = function()
-        print("hello")
-        return 123
-end
-return _module_0
 xpcall(function()
         return func(1, 2, 3)
 end, function(err)
@@ -2395,6 +2157,12 @@ local file
 local _with_0 = File("favorite_foods.txt")
 _with_0:set_encoding("utf8")
 file = _with_0
+local result
+local _with_0 = obj
+repeat
+        result = _with_0.value
+        break
+until true
 local create_person
 create_person = function(name, relatives)
         local _with_0 = Person()
@@ -2435,6 +2203,12 @@ local file
 local _with_0 = File("favorite_foods.txt")
 _with_0:set_encoding("utf8")
 file = _with_0
+local result
+local _with_0 = obj
+repeat
+        result = _with_0.value
+        break
+until true
 local create_person
 create_person = function(name, relatives)
         local _with_0 = Person()
@@ -3268,6 +3042,13 @@ for _index_0 = 1, #_list_0 do
                 break
         end
 end
+local key, score
+for k, v in pairs(data) do
+        if k == "target" then
+                key, score = k, v * 10
+                break
+        end
+end
 local func_a
 func_a = function()
         for i = 1, 10 do
@@ -3330,6 +3111,13 @@ for _index_0 = 1, #_list_0 do
                 break
         end
 end
+local key, score
+for k, v in pairs(data) do
+        if k == "target" then
+                key, score = k, v * 10
+                break
+        end
+end
 local func_a
 func_a = function()
         for i = 1, 10 do
@@ -4008,11 +3796,32 @@ end
 while not (running == false) do
         my_function()
 end
+local value, doubled
+local _val_0, _val_1
+while true do
+        local n = get_next()
+        if n > 10 then
+                _val_0, _val_1 = n, n * 2
+                break
+        end
+end
+value, doubled = _val_0, _val_1
 local i = 10
 repeat
         print(i)
         i = i - 1
 until i == 0
+local i = 1
+local value, scaled
+local _val_0, _val_1
+repeat
+        if i > 3 then
+                _val_0, _val_1 = i, i * 100
+                break
+        end
+        i = i + 1
+until false
+value, scaled = _val_0, _val_1
 local i = 10
 while i > 0 do
         print(i)
@@ -4029,11 +3838,32 @@ end
 while not (running == false) do
         my_function()
 end
+local value, doubled
+local _val_0, _val_1
+while true do
+        local n = get_next()
+        if n > 10 then
+                _val_0, _val_1 = n, n * 2
+                break
+        end
+end
+value, doubled = _val_0, _val_1
 local i = 10
 repeat
         print(i)
         i = i - 1
 until i == 0
+local i = 1
+local value, scaled
+local _val_0, _val_1
+repeat
+        if i > 3 then
+                _val_0, _val_1 = i, i * 100
+                break
+        end
+        i = i + 1
+until false
+value, scaled = _val_0, _val_1
 local my_object = {
         value = 1000,
         write = function(self)
@@ -5136,3 +4966,265 @@ fn = function()
         return str
 end
 local str = "path: \"C:\\Program Files\\App\"\nnote: 'He said: \"" .. tostring(Hello) .. "!\"'"
+do
+        local insert, concat = table.insert, table.concat
+        local C, Ct, Cmt
+        do
+                local _obj_0 = require("lpeg")
+                C, Ct, Cmt = _obj_0.C, _obj_0.Ct, _obj_0.Cmt
+        end
+        local x, y, z
+        do
+                local _obj_0 = require('mymodule')
+                x, y, z = _obj_0.x, _obj_0.y, _obj_0.z
+        end
+        local a, b, c
+        local _obj_0 = require('module')
+        a, b, c = _obj_0.a, _obj_0.b, _obj_0.c
+end
+do
+        local module = require('module')
+        local module_x = require('module_x')
+        local d_a_s_h_e_s = require("d-a-s-h-e-s")
+        local part = require("module.part")
+end
+do
+        local PlayerModule = require("player")
+        local C, Ct, Cmt
+        do
+                local _obj_0 = require("lpeg")
+                C, Ct, Cmt = _obj_0.C, _obj_0.Ct, _obj_0.Cmt
+        end
+        local one, two, ch
+        local _obj_0 = require("export")
+        one, two, ch = _obj_0[1], _obj_0[2], _obj_0.Something.umm[1]
+end
+do
+        local tostring <const> = tostring
+        local concat <const> = table.concat
+        print(concat({
+                "a",
+                tostring(1)
+        }))
+end
+do
+        local print <const> = print
+        local math <const> = math
+        print("hello")
+        math.random(3)
+end
+do
+        local print <const> = print
+        print(FLAG)
+        FLAG = 123
+end
+local _module_0 = { }
+local a, b, c = 1, 2, 3
+_module_0["a"], _module_0["b"], _module_0["c"] = a, b, c
+local cool = "cat"
+_module_0["cool"] = cool
+local What
+if this then
+        What = "abc"
+else
+        What = "def"
+end
+_module_0["What"] = What
+local y
+y = function()
+        local hallo = 3434
+end
+_module_0["y"] = y
+local Something
+local _class_0
+local _base_0 = {
+        umm = "cool"
+}
+if _base_0.__index == nil then
+        _base_0.__index = _base_0
+end
+_class_0 = setmetatable({
+        __init = function() end,
+        __base = _base_0,
+        __name = "Something"
+}, {
+        __index = _base_0,
+        __call = function(cls, ...)
+                local _self_0 = setmetatable({ }, _base_0)
+                cls.__init(_self_0, ...)
+                return _self_0
+        end
+})
+_base_0.__class = _class_0
+Something = _class_0
+_module_0["Something"] = Something
+return _module_0
+local _module_0 = { }
+local loadstring, tolua
+do
+        local _obj_0 = yue
+        loadstring, tolua = _obj_0.loadstring, _obj_0.to_lua
+end
+_module_0["loadstring"], _module_0["tolua"] = loadstring, tolua
+local fieldA = tb.itemA.fieldA
+if fieldA == nil then
+        fieldA = 'default'
+end
+_module_0["fieldA"] = fieldA
+return _module_0
+local _module_0 = setmetatable({ }, { })
+_module_0.itemA = tb
+getmetatable(_module_0).__index = items
+_module_0["a-b-c"] = 123
+return _module_0
+local _module_0 = { }
+local d, e, f = 3, 2, 1
+_module_0[#_module_0 + 1] = d
+_module_0[#_module_0 + 1] = e
+_module_0[#_module_0 + 1] = f
+if this then
+        _module_0[#_module_0 + 1] = 123
+else
+        _module_0[#_module_0 + 1] = 456
+end
+local _with_0 = tmp
+local j = 2000
+_module_0[#_module_0 + 1] = _with_0
+return _module_0
+local _module_0 = nil
+_module_0 = function()
+        print("hello")
+        return 123
+end
+return _module_0
+do
+        local insert, concat = table.insert, table.concat
+        local C, Ct, Cmt
+        do
+                local _obj_0 = require("lpeg")
+                C, Ct, Cmt = _obj_0.C, _obj_0.Ct, _obj_0.Cmt
+        end
+        local x, y, z
+        do
+                local _obj_0 = require('mymodule')
+                x, y, z = _obj_0.x, _obj_0.y, _obj_0.z
+        end
+        local a, b, c
+        local _obj_0 = require('module')
+        a, b, c = _obj_0.a, _obj_0.b, _obj_0.c
+end
+do
+        local module = require('module')
+        local module_x = require('module_x')
+        local d_a_s_h_e_s = require("d-a-s-h-e-s")
+        local part = require("module.part")
+end
+do
+        local PlayerModule = require("player")
+        local C, Ct, Cmt
+        do
+                local _obj_0 = require("lpeg")
+                C, Ct, Cmt = _obj_0.C, _obj_0.Ct, _obj_0.Cmt
+        end
+        local one, two, ch
+        local _obj_0 = require("export")
+        one, two, ch = _obj_0[1], _obj_0[2], _obj_0.Something.umm[1]
+end
+do
+        local tostring <const> = tostring
+        local concat <const> = table.concat
+        print(concat({
+                "a",
+                tostring(1)
+        }))
+end
+do
+        local print <const> = print
+        local math <const> = math
+        print("hello")
+        math.random(3)
+end
+do
+        local print <const> = print
+        print(FLAG)
+        FLAG = 123
+end
+local _module_0 = { }
+local a, b, c = 1, 2, 3
+_module_0["a"], _module_0["b"], _module_0["c"] = a, b, c
+local cool = "cat"
+_module_0["cool"] = cool
+local What
+if this then
+        What = "abc"
+else
+        What = "def"
+end
+_module_0["What"] = What
+local y
+y = function()
+        local hallo = 3434
+end
+_module_0["y"] = y
+local Something
+local _class_0
+local _base_0 = {
+        umm = "cool"
+}
+if _base_0.__index == nil then
+        _base_0.__index = _base_0
+end
+_class_0 = setmetatable({
+        __init = function() end,
+        __base = _base_0,
+        __name = "Something"
+}, {
+        __index = _base_0,
+        __call = function(cls, ...)
+                local _self_0 = setmetatable({ }, _base_0)
+                cls.__init(_self_0, ...)
+                return _self_0
+        end
+})
+_base_0.__class = _class_0
+Something = _class_0
+_module_0["Something"] = Something
+return _module_0
+local _module_0 = { }
+local loadstring, tolua
+do
+        local _obj_0 = yue
+        loadstring, tolua = _obj_0.loadstring, _obj_0.to_lua
+end
+_module_0["loadstring"], _module_0["tolua"] = loadstring, tolua
+local fieldA = tb.itemA.fieldA
+if fieldA == nil then
+        fieldA = 'default'
+end
+_module_0["fieldA"] = fieldA
+return _module_0
+local _module_0 = setmetatable({ }, { })
+_module_0.itemA = tb
+getmetatable(_module_0).__index = items
+_module_0["a-b-c"] = 123
+return _module_0
+local _module_0 = { }
+local d, e, f = 3, 2, 1
+_module_0[#_module_0 + 1] = d
+_module_0[#_module_0 + 1] = e
+_module_0[#_module_0 + 1] = f
+if this then
+        _module_0[#_module_0 + 1] = 123
+else
+        _module_0[#_module_0 + 1] = 456
+end
+local _with_0 = tmp
+local j = 2000
+_module_0[#_module_0 + 1] = _with_0
+return _module_0
+local _module_0 = nil
+_module_0 = function()
+        print("hello")
+        return 123
+end
+return _module_0
diff --git a/spec/outputs/codes_from_doc_pt-br.lua b/spec/outputs/codes_from_doc_pt-br.lua
index f5643c8..caa15d6 100644
--- a/spec/outputs/codes_from_doc_pt-br.lua
+++ b/spec/outputs/codes_from_doc_pt-br.lua
@@ -3,6 +3,18 @@ do
         print(var)
 end
 print(var)
+local status, value
+do
+        repeat
+                local n = 12
+                if n > 10 then
+                        status, value = "large", n
+                        break
+                end
+                status, value = "small", n
+                break
+        until true
+end
 local counter
 do
         local i = 0
@@ -24,6 +36,18 @@ do
         print(var)
 end
 print(var)
+local status, value
+do
+        repeat
+                local n = 12
+                if n > 10 then
+                        status, value = "large", n
+                        break
+                end
+                status, value = "small", n
+                break
+        until true
+end
 local counter
 do
         local i = 0
@@ -146,268 +170,6 @@ end
 do
         print(123, "hello")
 end
-do
-        local insert, concat = table.insert, table.concat
-        local C, Ct, Cmt
-        do
-                local _obj_0 = require("lpeg")
-                C, Ct, Cmt = _obj_0.C, _obj_0.Ct, _obj_0.Cmt
-        end
-        local x, y, z
-        do
-                local _obj_0 = require('mymodule')
-                x, y, z = _obj_0.x, _obj_0.y, _obj_0.z
-        end
-        local a, b, c
-        local _obj_0 = require('module')
-        a, b, c = _obj_0.a, _obj_0.b, _obj_0.c
-end
-do
-        local module = require('module')
-        local module_x = require('module_x')
-        local d_a_s_h_e_s = require("d-a-s-h-e-s")
-        local part = require("module.part")
-end
-do
-        local PlayerModule = require("player")
-        local C, Ct, Cmt
-        do
-                local _obj_0 = require("lpeg")
-                C, Ct, Cmt = _obj_0.C, _obj_0.Ct, _obj_0.Cmt
-        end
-        local one, two, ch
-        local _obj_0 = require("export")
-        one, two, ch = _obj_0[1], _obj_0[2], _obj_0.Something.umm[1]
-end
-do
-        local tostring <const> = tostring
-        local concat <const> = table.concat
-        print(concat({
-                "a",
-                tostring(1)
-        }))
-end
-do
-        local print <const> = print
-        local math <const> = math
-        print("hello")
-        math.random(3)
-end
-do
-        local print <const> = print
-        print(FLAG)
-        FLAG = 123
-end
-local _module_0 = { }
-local a, b, c = 1, 2, 3
-_module_0["a"], _module_0["b"], _module_0["c"] = a, b, c
-local cool = "cat"
-_module_0["cool"] = cool
-local What
-if this then
-        What = "abc"
-else
-        What = "def"
-end
-_module_0["What"] = What
-local y
-y = function()
-        local hallo = 3434
-end
-_module_0["y"] = y
-local Something
-local _class_0
-local _base_0 = {
-        umm = "cool"
-}
-if _base_0.__index == nil then
-        _base_0.__index = _base_0
-end
-_class_0 = setmetatable({
-        __init = function() end,
-        __base = _base_0,
-        __name = "Something"
-}, {
-        __index = _base_0,
-        __call = function(cls, ...)
-                local _self_0 = setmetatable({ }, _base_0)
-                cls.__init(_self_0, ...)
-                return _self_0
-        end
-})
-_base_0.__class = _class_0
-Something = _class_0
-_module_0["Something"] = Something
-return _module_0
-local _module_0 = { }
-local loadstring, tolua
-do
-        local _obj_0 = yue
-        loadstring, tolua = _obj_0.loadstring, _obj_0.to_lua
-end
-_module_0["loadstring"], _module_0["tolua"] = loadstring, tolua
-local fieldA = tb.itemA.fieldA
-if fieldA == nil then
-        fieldA = 'default'
-end
-_module_0["fieldA"] = fieldA
-return _module_0
-local _module_0 = setmetatable({ }, { })
-_module_0.itemA = tb
-getmetatable(_module_0).__index = items
-_module_0["a-b-c"] = 123
-return _module_0
-local _module_0 = { }
-local d, e, f = 3, 2, 1
-_module_0[#_module_0 + 1] = d
-_module_0[#_module_0 + 1] = e
-_module_0[#_module_0 + 1] = f
-if this then
-        _module_0[#_module_0 + 1] = 123
-else
-        _module_0[#_module_0 + 1] = 456
-end
-local _with_0 = tmp
-local j = 2000
-_module_0[#_module_0 + 1] = _with_0
-return _module_0
-local _module_0 = nil
-_module_0 = function()
-        print("hello")
-        return 123
-end
-return _module_0
-do
-        local insert, concat = table.insert, table.concat
-        local C, Ct, Cmt
-        do
-                local _obj_0 = require("lpeg")
-                C, Ct, Cmt = _obj_0.C, _obj_0.Ct, _obj_0.Cmt
-        end
-        local x, y, z
-        do
-                local _obj_0 = require('mymodule')
-                x, y, z = _obj_0.x, _obj_0.y, _obj_0.z
-        end
-        local a, b, c
-        local _obj_0 = require('module')
-        a, b, c = _obj_0.a, _obj_0.b, _obj_0.c
-end
-do
-        local module = require('module')
-        local module_x = require('module_x')
-        local d_a_s_h_e_s = require("d-a-s-h-e-s")
-        local part = require("module.part")
-end
-do
-        local PlayerModule = require("player")
-        local C, Ct, Cmt
-        do
-                local _obj_0 = require("lpeg")
-                C, Ct, Cmt = _obj_0.C, _obj_0.Ct, _obj_0.Cmt
-        end
-        local one, two, ch
-        local _obj_0 = require("export")
-        one, two, ch = _obj_0[1], _obj_0[2], _obj_0.Something.umm[1]
-end
-do
-        local tostring <const> = tostring
-        local concat <const> = table.concat
-        print(concat({
-                "a",
-                tostring(1)
-        }))
-end
-do
-        local print <const> = print
-        local math <const> = math
-        print("hello")
-        math.random(3)
-end
-do
-        local print <const> = print
-        print(FLAG)
-        FLAG = 123
-end
-local _module_0 = { }
-local a, b, c = 1, 2, 3
-_module_0["a"], _module_0["b"], _module_0["c"] = a, b, c
-local cool = "cat"
-_module_0["cool"] = cool
-local What
-if this then
-        What = "abc"
-else
-        What = "def"
-end
-_module_0["What"] = What
-local y
-y = function()
-        local hallo = 3434
-end
-_module_0["y"] = y
-local Something
-local _class_0
-local _base_0 = {
-        umm = "cool"
-}
-if _base_0.__index == nil then
-        _base_0.__index = _base_0
-end
-_class_0 = setmetatable({
-        __init = function() end,
-        __base = _base_0,
-        __name = "Something"
-}, {
-        __index = _base_0,
-        __call = function(cls, ...)
-                local _self_0 = setmetatable({ }, _base_0)
-                cls.__init(_self_0, ...)
-                return _self_0
-        end
-})
-_base_0.__class = _class_0
-Something = _class_0
-_module_0["Something"] = Something
-return _module_0
-local _module_0 = { }
-local loadstring, tolua
-do
-        local _obj_0 = yue
-        loadstring, tolua = _obj_0.loadstring, _obj_0.to_lua
-end
-_module_0["loadstring"], _module_0["tolua"] = loadstring, tolua
-local fieldA = tb.itemA.fieldA
-if fieldA == nil then
-        fieldA = 'default'
-end
-_module_0["fieldA"] = fieldA
-return _module_0
-local _module_0 = setmetatable({ }, { })
-_module_0.itemA = tb
-getmetatable(_module_0).__index = items
-_module_0["a-b-c"] = 123
-return _module_0
-local _module_0 = { }
-local d, e, f = 3, 2, 1
-_module_0[#_module_0 + 1] = d
-_module_0[#_module_0 + 1] = e
-_module_0[#_module_0 + 1] = f
-if this then
-        _module_0[#_module_0 + 1] = 123
-else
-        _module_0[#_module_0 + 1] = 456
-end
-local _with_0 = tmp
-local j = 2000
-_module_0[#_module_0 + 1] = _with_0
-return _module_0
-local _module_0 = nil
-_module_0 = function()
-        print("hello")
-        return 123
-end
-return _module_0
 xpcall(function()
         return func(1, 2, 3)
 end, function(err)
@@ -2395,6 +2157,12 @@ local file
 local _with_0 = File("favorite_foods.txt")
 _with_0:set_encoding("utf8")
 file = _with_0
+local result
+local _with_0 = obj
+repeat
+        result = _with_0.value
+        break
+until true
 local create_person
 create_person = function(name, relatives)
         local _with_0 = Person()
@@ -2435,6 +2203,12 @@ local file
 local _with_0 = File("favorite_foods.txt")
 _with_0:set_encoding("utf8")
 file = _with_0
+local result
+local _with_0 = obj
+repeat
+        result = _with_0.value
+        break
+until true
 local create_person
 create_person = function(name, relatives)
         local _with_0 = Person()
@@ -3268,6 +3042,13 @@ for _index_0 = 1, #_list_0 do
                 break
         end
 end
+local key, score
+for k, v in pairs(data) do
+        if k == "target" then
+                key, score = k, v * 10
+                break
+        end
+end
 local func_a
 func_a = function()
         for i = 1, 10 do
@@ -3330,6 +3111,13 @@ for _index_0 = 1, #_list_0 do
                 break
         end
 end
+local key, score
+for k, v in pairs(data) do
+        if k == "target" then
+                key, score = k, v * 10
+                break
+        end
+end
 local func_a
 func_a = function()
         for i = 1, 10 do
@@ -4008,11 +3796,32 @@ end
 while not (running == false) do
         my_function()
 end
+local value, doubled
+local _val_0, _val_1
+while true do
+        local n = get_next()
+        if n > 10 then
+                _val_0, _val_1 = n, n * 2
+                break
+        end
+end
+value, doubled = _val_0, _val_1
 local i = 10
 repeat
         print(i)
         i = i - 1
 until i == 0
+local i = 1
+local value, scaled
+local _val_0, _val_1
+repeat
+        if i > 3 then
+                _val_0, _val_1 = i, i * 100
+                break
+        end
+        i = i + 1
+until false
+value, scaled = _val_0, _val_1
 local i = 10
 while i > 0 do
         print(i)
@@ -4029,11 +3838,32 @@ end
 while not (running == false) do
         my_function()
 end
+local value, doubled
+local _val_0, _val_1
+while true do
+        local n = get_next()
+        if n > 10 then
+                _val_0, _val_1 = n, n * 2
+                break
+        end
+end
+value, doubled = _val_0, _val_1
 local i = 10
 repeat
         print(i)
         i = i - 1
 until i == 0
+local i = 1
+local value, scaled
+local _val_0, _val_1
+repeat
+        if i > 3 then
+                _val_0, _val_1 = i, i * 100
+                break
+        end
+        i = i + 1
+until false
+value, scaled = _val_0, _val_1
 local my_object = {
         value = 1000,
         write = function(self)
@@ -5136,3 +4966,265 @@ fn = function()
         return str
 end
 local str = "path: \"C:\\Program Files\\App\"\nnote: 'Ele disse: \"" .. tostring(Hello) .. "!\"'"
+do
+        local insert, concat = table.insert, table.concat
+        local C, Ct, Cmt
+        do
+                local _obj_0 = require("lpeg")
+                C, Ct, Cmt = _obj_0.C, _obj_0.Ct, _obj_0.Cmt
+        end
+        local x, y, z
+        do
+                local _obj_0 = require('mymodule')
+                x, y, z = _obj_0.x, _obj_0.y, _obj_0.z
+        end
+        local a, b, c
+        local _obj_0 = require('module')
+        a, b, c = _obj_0.a, _obj_0.b, _obj_0.c
+end
+do
+        local module = require('module')
+        local module_x = require('module_x')
+        local d_a_s_h_e_s = require("d-a-s-h-e-s")
+        local part = require("module.part")
+end
+do
+        local PlayerModule = require("player")
+        local C, Ct, Cmt
+        do
+                local _obj_0 = require("lpeg")
+                C, Ct, Cmt = _obj_0.C, _obj_0.Ct, _obj_0.Cmt
+        end
+        local one, two, ch
+        local _obj_0 = require("export")
+        one, two, ch = _obj_0[1], _obj_0[2], _obj_0.Something.umm[1]
+end
+do
+        local tostring <const> = tostring
+        local concat <const> = table.concat
+        print(concat({
+                "a",
+                tostring(1)
+        }))
+end
+do
+        local print <const> = print
+        local math <const> = math
+        print("hello")
+        math.random(3)
+end
+do
+        local print <const> = print
+        print(FLAG)
+        FLAG = 123
+end
+local _module_0 = { }
+local a, b, c = 1, 2, 3
+_module_0["a"], _module_0["b"], _module_0["c"] = a, b, c
+local cool = "cat"
+_module_0["cool"] = cool
+local What
+if this then
+        What = "abc"
+else
+        What = "def"
+end
+_module_0["What"] = What
+local y
+y = function()
+        local hallo = 3434
+end
+_module_0["y"] = y
+local Something
+local _class_0
+local _base_0 = {
+        umm = "cool"
+}
+if _base_0.__index == nil then
+        _base_0.__index = _base_0
+end
+_class_0 = setmetatable({
+        __init = function() end,
+        __base = _base_0,
+        __name = "Something"
+}, {
+        __index = _base_0,
+        __call = function(cls, ...)
+                local _self_0 = setmetatable({ }, _base_0)
+                cls.__init(_self_0, ...)
+                return _self_0
+        end
+})
+_base_0.__class = _class_0
+Something = _class_0
+_module_0["Something"] = Something
+return _module_0
+local _module_0 = { }
+local loadstring, tolua
+do
+        local _obj_0 = yue
+        loadstring, tolua = _obj_0.loadstring, _obj_0.to_lua
+end
+_module_0["loadstring"], _module_0["tolua"] = loadstring, tolua
+local fieldA = tb.itemA.fieldA
+if fieldA == nil then
+        fieldA = 'default'
+end
+_module_0["fieldA"] = fieldA
+return _module_0
+local _module_0 = setmetatable({ }, { })
+_module_0.itemA = tb
+getmetatable(_module_0).__index = items
+_module_0["a-b-c"] = 123
+return _module_0
+local _module_0 = { }
+local d, e, f = 3, 2, 1
+_module_0[#_module_0 + 1] = d
+_module_0[#_module_0 + 1] = e
+_module_0[#_module_0 + 1] = f
+if this then
+        _module_0[#_module_0 + 1] = 123
+else
+        _module_0[#_module_0 + 1] = 456
+end
+local _with_0 = tmp
+local j = 2000
+_module_0[#_module_0 + 1] = _with_0
+return _module_0
+local _module_0 = nil
+_module_0 = function()
+        print("hello")
+        return 123
+end
+return _module_0
+do
+        local insert, concat = table.insert, table.concat
+        local C, Ct, Cmt
+        do
+                local _obj_0 = require("lpeg")
+                C, Ct, Cmt = _obj_0.C, _obj_0.Ct, _obj_0.Cmt
+        end
+        local x, y, z
+        do
+                local _obj_0 = require('mymodule')
+                x, y, z = _obj_0.x, _obj_0.y, _obj_0.z
+        end
+        local a, b, c
+        local _obj_0 = require('module')
+        a, b, c = _obj_0.a, _obj_0.b, _obj_0.c
+end
+do
+        local module = require('module')
+        local module_x = require('module_x')
+        local d_a_s_h_e_s = require("d-a-s-h-e-s")
+        local part = require("module.part")
+end
+do
+        local PlayerModule = require("player")
+        local C, Ct, Cmt
+        do
+                local _obj_0 = require("lpeg")
+                C, Ct, Cmt = _obj_0.C, _obj_0.Ct, _obj_0.Cmt
+        end
+        local one, two, ch
+        local _obj_0 = require("export")
+        one, two, ch = _obj_0[1], _obj_0[2], _obj_0.Something.umm[1]
+end
+do
+        local tostring <const> = tostring
+        local concat <const> = table.concat
+        print(concat({
+                "a",
+                tostring(1)
+        }))
+end
+do
+        local print <const> = print
+        local math <const> = math
+        print("hello")
+        math.random(3)
+end
+do
+        local print <const> = print
+        print(FLAG)
+        FLAG = 123
+end
+local _module_0 = { }
+local a, b, c = 1, 2, 3
+_module_0["a"], _module_0["b"], _module_0["c"] = a, b, c
+local cool = "cat"
+_module_0["cool"] = cool
+local What
+if this then
+        What = "abc"
+else
+        What = "def"
+end
+_module_0["What"] = What
+local y
+y = function()
+        local hallo = 3434
+end
+_module_0["y"] = y
+local Something
+local _class_0
+local _base_0 = {
+        umm = "cool"
+}
+if _base_0.__index == nil then
+        _base_0.__index = _base_0
+end
+_class_0 = setmetatable({
+        __init = function() end,
+        __base = _base_0,
+        __name = "Something"
+}, {
+        __index = _base_0,
+        __call = function(cls, ...)
+                local _self_0 = setmetatable({ }, _base_0)
+                cls.__init(_self_0, ...)
+                return _self_0
+        end
+})
+_base_0.__class = _class_0
+Something = _class_0
+_module_0["Something"] = Something
+return _module_0
+local _module_0 = { }
+local loadstring, tolua
+do
+        local _obj_0 = yue
+        loadstring, tolua = _obj_0.loadstring, _obj_0.to_lua
+end
+_module_0["loadstring"], _module_0["tolua"] = loadstring, tolua
+local fieldA = tb.itemA.fieldA
+if fieldA == nil then
+        fieldA = 'default'
+end
+_module_0["fieldA"] = fieldA
+return _module_0
+local _module_0 = setmetatable({ }, { })
+_module_0.itemA = tb
+getmetatable(_module_0).__index = items
+_module_0["a-b-c"] = 123
+return _module_0
+local _module_0 = { }
+local d, e, f = 3, 2, 1
+_module_0[#_module_0 + 1] = d
+_module_0[#_module_0 + 1] = e
+_module_0[#_module_0 + 1] = f
+if this then
+        _module_0[#_module_0 + 1] = 123
+else
+        _module_0[#_module_0 + 1] = 456
+end
+local _with_0 = tmp
+local j = 2000
+_module_0[#_module_0 + 1] = _with_0
+return _module_0
+local _module_0 = nil
+_module_0 = function()
+        print("hello")
+        return 123
+end
+return _module_0
diff --git a/spec/outputs/codes_from_doc_zh.lua b/spec/outputs/codes_from_doc_zh.lua
index 087782e..4ff3866 100644
--- a/spec/outputs/codes_from_doc_zh.lua
+++ b/spec/outputs/codes_from_doc_zh.lua
@@ -3,6 +3,18 @@ do
         print(var)
 end
 print(var)
+local status, value
+do
+        repeat
+                local n = 12
+                if n > 10 then
+                        status, value = "large", n
+                        break
+                end
+                status, value = "small", n
+                break
+        until true
+end
 local counter
 do
         local i = 0
@@ -24,6 +36,18 @@ do
         print(var)
 end
 print(var)
+local status, value
+do
+        repeat
+                local n = 12
+                if n > 10 then
+                        status, value = "large", n
+                        break
+                end
+                status, value = "small", n
+                break
+        until true
+end
 local counter
 do
         local i = 0
@@ -146,268 +170,6 @@ end
 do
         print(123, "hello")
 end
-do
-        local insert, concat = table.insert, table.concat
-        local C, Ct, Cmt
-        do
-                local _obj_0 = require("lpeg")
-                C, Ct, Cmt = _obj_0.C, _obj_0.Ct, _obj_0.Cmt
-        end
-        local x, y, z
-        do
-                local _obj_0 = require('mymodule')
-                x, y, z = _obj_0.x, _obj_0.y, _obj_0.z
-        end
-        local a, b, c
-        local _obj_0 = require('module')
-        a, b, c = _obj_0.a, _obj_0.b, _obj_0.c
-end
-do
-        local module = require('module')
-        local module_x = require('module_x')
-        local d_a_s_h_e_s = require("d-a-s-h-e-s")
-        local part = require("module.part")
-end
-do
-        local PlayerModule = require("player")
-        local C, Ct, Cmt
-        do
-                local _obj_0 = require("lpeg")
-                C, Ct, Cmt = _obj_0.C, _obj_0.Ct, _obj_0.Cmt
-        end
-        local one, two, ch
-        local _obj_0 = require("export")
-        one, two, ch = _obj_0[1], _obj_0[2], _obj_0.Something.umm[1]
-end
-do
-        local tostring <const> = tostring
-        local concat <const> = table.concat
-        print(concat({
-                "a",
-                tostring(1)
-        }))
-end
-do
-        local print <const> = print
-        local math <const> = math
-        print("hello")
-        math.random(3)
-end
-do
-        local print <const> = print
-        print(FLAG)
-        FLAG = 123
-end
-local _module_0 = { }
-local a, b, c = 1, 2, 3
-_module_0["a"], _module_0["b"], _module_0["c"] = a, b, c
-local cool = "cat"
-_module_0["cool"] = cool
-local What
-if this then
-        What = "abc"
-else
-        What = "def"
-end
-_module_0["What"] = What
-local y
-y = function()
-        local hallo = 3434
-end
-_module_0["y"] = y
-local Something
-local _class_0
-local _base_0 = {
-        umm = "cool"
-}
-if _base_0.__index == nil then
-        _base_0.__index = _base_0
-end
-_class_0 = setmetatable({
-        __init = function() end,
-        __base = _base_0,
-        __name = "Something"
-}, {
-        __index = _base_0,
-        __call = function(cls, ...)
-                local _self_0 = setmetatable({ }, _base_0)
-                cls.__init(_self_0, ...)
-                return _self_0
-        end
-})
-_base_0.__class = _class_0
-Something = _class_0
-_module_0["Something"] = Something
-return _module_0
-local _module_0 = { }
-local loadstring, tolua
-do
-        local _obj_0 = yue
-        loadstring, tolua = _obj_0.loadstring, _obj_0.to_lua
-end
-_module_0["loadstring"], _module_0["tolua"] = loadstring, tolua
-local fieldA = tb.itemA.fieldA
-if fieldA == nil then
-        fieldA = '默认值'
-end
-_module_0["fieldA"] = fieldA
-return _module_0
-local _module_0 = setmetatable({ }, { })
-_module_0.itemA = tb
-getmetatable(_module_0).__index = items
-_module_0["a-b-c"] = 123
-return _module_0
-local _module_0 = { }
-local d, e, f = 3, 2, 1
-_module_0[#_module_0 + 1] = d
-_module_0[#_module_0 + 1] = e
-_module_0[#_module_0 + 1] = f
-if this then
-        _module_0[#_module_0 + 1] = 123
-else
-        _module_0[#_module_0 + 1] = 456
-end
-local _with_0 = tmp
-local j = 2000
-_module_0[#_module_0 + 1] = _with_0
-return _module_0
-local _module_0 = nil
-_module_0 = function()
-        print("你好")
-        return 123
-end
-return _module_0
-do
-        local insert, concat = table.insert, table.concat
-        local C, Ct, Cmt
-        do
-                local _obj_0 = require("lpeg")
-                C, Ct, Cmt = _obj_0.C, _obj_0.Ct, _obj_0.Cmt
-        end
-        local x, y, z
-        do
-                local _obj_0 = require('mymodule')
-                x, y, z = _obj_0.x, _obj_0.y, _obj_0.z
-        end
-        local a, b, c
-        local _obj_0 = require('module')
-        a, b, c = _obj_0.a, _obj_0.b, _obj_0.c
-end
-do
-        local module = require('module')
-        local module_x = require('module_x')
-        local d_a_s_h_e_s = require("d-a-s-h-e-s")
-        local part = require("module.part")
-end
-do
-        local PlayerModule = require("player")
-        local C, Ct, Cmt
-        do
-                local _obj_0 = require("lpeg")
-                C, Ct, Cmt = _obj_0.C, _obj_0.Ct, _obj_0.Cmt
-        end
-        local one, two, ch
-        local _obj_0 = require("export")
-        one, two, ch = _obj_0[1], _obj_0[2], _obj_0.Something.umm[1]
-end
-do
-        local tostring <const> = tostring
-        local concat <const> = table.concat
-        print(concat({
-                "a",
-                tostring(1)
-        }))
-end
-do
-        local print <const> = print
-        local math <const> = math
-        print("hello")
-        math.random(3)
-end
-do
-        local print <const> = print
-        print(FLAG)
-        FLAG = 123
-end
-local _module_0 = { }
-local a, b, c = 1, 2, 3
-_module_0["a"], _module_0["b"], _module_0["c"] = a, b, c
-local cool = "cat"
-_module_0["cool"] = cool
-local What
-if this then
-        What = "abc"
-else
-        What = "def"
-end
-_module_0["What"] = What
-local y
-y = function()
-        local hallo = 3434
-end
-_module_0["y"] = y
-local Something
-local _class_0
-local _base_0 = {
-        umm = "cool"
-}
-if _base_0.__index == nil then
-        _base_0.__index = _base_0
-end
-_class_0 = setmetatable({
-        __init = function() end,
-        __base = _base_0,
-        __name = "Something"
-}, {
-        __index = _base_0,
-        __call = function(cls, ...)
-                local _self_0 = setmetatable({ }, _base_0)
-                cls.__init(_self_0, ...)
-                return _self_0
-        end
-})
-_base_0.__class = _class_0
-Something = _class_0
-_module_0["Something"] = Something
-return _module_0
-local _module_0 = { }
-local loadstring, tolua
-do
-        local _obj_0 = yue
-        loadstring, tolua = _obj_0.loadstring, _obj_0.to_lua
-end
-_module_0["loadstring"], _module_0["tolua"] = loadstring, tolua
-local fieldA = tb.itemA.fieldA
-if fieldA == nil then
-        fieldA = '默认值'
-end
-_module_0["fieldA"] = fieldA
-return _module_0
-local _module_0 = setmetatable({ }, { })
-_module_0.itemA = tb
-getmetatable(_module_0).__index = items
-_module_0["a-b-c"] = 123
-return _module_0
-local _module_0 = { }
-local d, e, f = 3, 2, 1
-_module_0[#_module_0 + 1] = d
-_module_0[#_module_0 + 1] = e
-_module_0[#_module_0 + 1] = f
-if this then
-        _module_0[#_module_0 + 1] = 123
-else
-        _module_0[#_module_0 + 1] = 456
-end
-local _with_0 = tmp
-local j = 2000
-_module_0[#_module_0 + 1] = _with_0
-return _module_0
-local _module_0 = nil
-_module_0 = function()
-        print("你好")
-        return 123
-end
-return _module_0
 xpcall(function()
         return func(1, 2, 3)
 end, function(err)
@@ -2395,6 +2157,12 @@ local file
 local _with_0 = File("favorite_foods.txt")
 _with_0:set_encoding("utf8")
 file = _with_0
+local result
+local _with_0 = obj
+repeat
+        result = _with_0.value
+        break
+until true
 local create_person
 create_person = function(name, relatives)
         local _with_0 = Person()
@@ -2435,6 +2203,12 @@ local file
 local _with_0 = File("favorite_foods.txt")
 _with_0:set_encoding("utf8")
 file = _with_0
+local result
+local _with_0 = obj
+repeat
+        result = _with_0.value
+        break
+until true
 local create_person
 create_person = function(name, relatives)
         local _with_0 = Person()
@@ -3268,6 +3042,13 @@ for _index_0 = 1, #_list_0 do
                 break
         end
 end
+local key, score
+for k, v in pairs(data) do
+        if k == "target" then
+                key, score = k, v * 10
+                break
+        end
+end
 local func_a
 func_a = function()
         for i = 1, 10 do
@@ -3330,6 +3111,13 @@ for _index_0 = 1, #_list_0 do
                 break
         end
 end
+local key, score
+for k, v in pairs(data) do
+        if k == "target" then
+                key, score = k, v * 10
+                break
+        end
+end
 local func_a
 func_a = function()
         for i = 1, 10 do
@@ -4008,11 +3796,32 @@ end
 while not (running == false) do
         my_function()
 end
+local value, doubled
+local _val_0, _val_1
+while true do
+        local n = get_next()
+        if n > 10 then
+                _val_0, _val_1 = n, n * 2
+                break
+        end
+end
+value, doubled = _val_0, _val_1
 local i = 10
 repeat
         print(i)
         i = i - 1
 until i == 0
+local i = 1
+local value, scaled
+local _val_0, _val_1
+repeat
+        if i > 3 then
+                _val_0, _val_1 = i, i * 100
+                break
+        end
+        i = i + 1
+until false
+value, scaled = _val_0, _val_1
 local i = 10
 while i > 0 do
         print(i)
@@ -4029,11 +3838,32 @@ end
 while not (running == false) do
         my_function()
 end
+local value, doubled
+local _val_0, _val_1
+while true do
+        local n = get_next()
+        if n > 10 then
+                _val_0, _val_1 = n, n * 2
+                break
+        end
+end
+value, doubled = _val_0, _val_1
 local i = 10
 repeat
         print(i)
         i = i - 1
 until i == 0
+local i = 1
+local value, scaled
+local _val_0, _val_1
+repeat
+        if i > 3 then
+                _val_0, _val_1 = i, i * 100
+                break
+        end
+        i = i + 1
+until false
+value, scaled = _val_0, _val_1
 local my_object = {
         value = 1000,
         write = function(self)
@@ -5136,3 +4966,265 @@ fn = function()
         return str
 end
 local str = "path: \"C:\\Program Files\\App\"\nnote: 'He said: \"" .. tostring(Hello) .. "!\"'"
+do
+        local insert, concat = table.insert, table.concat
+        local C, Ct, Cmt
+        do
+                local _obj_0 = require("lpeg")
+                C, Ct, Cmt = _obj_0.C, _obj_0.Ct, _obj_0.Cmt
+        end
+        local x, y, z
+        do
+                local _obj_0 = require('mymodule')
+                x, y, z = _obj_0.x, _obj_0.y, _obj_0.z
+        end
+        local a, b, c
+        local _obj_0 = require('module')
+        a, b, c = _obj_0.a, _obj_0.b, _obj_0.c
+end
+do
+        local module = require('module')
+        local module_x = require('module_x')
+        local d_a_s_h_e_s = require("d-a-s-h-e-s")
+        local part = require("module.part")
+end
+do
+        local PlayerModule = require("player")
+        local C, Ct, Cmt
+        do
+                local _obj_0 = require("lpeg")
+                C, Ct, Cmt = _obj_0.C, _obj_0.Ct, _obj_0.Cmt
+        end
+        local one, two, ch
+        local _obj_0 = require("export")
+        one, two, ch = _obj_0[1], _obj_0[2], _obj_0.Something.umm[1]
+end
+do
+        local tostring <const> = tostring
+        local concat <const> = table.concat
+        print(concat({
+                "a",
+                tostring(1)
+        }))
+end
+do
+        local print <const> = print
+        local math <const> = math
+        print("hello")
+        math.random(3)
+end
+do
+        local print <const> = print
+        print(FLAG)
+        FLAG = 123
+end
+local _module_0 = { }
+local a, b, c = 1, 2, 3
+_module_0["a"], _module_0["b"], _module_0["c"] = a, b, c
+local cool = "cat"
+_module_0["cool"] = cool
+local What
+if this then
+        What = "abc"
+else
+        What = "def"
+end
+_module_0["What"] = What
+local y
+y = function()
+        local hallo = 3434
+end
+_module_0["y"] = y
+local Something
+local _class_0
+local _base_0 = {
+        umm = "cool"
+}
+if _base_0.__index == nil then
+        _base_0.__index = _base_0
+end
+_class_0 = setmetatable({
+        __init = function() end,
+        __base = _base_0,
+        __name = "Something"
+}, {
+        __index = _base_0,
+        __call = function(cls, ...)
+                local _self_0 = setmetatable({ }, _base_0)
+                cls.__init(_self_0, ...)
+                return _self_0
+        end
+})
+_base_0.__class = _class_0
+Something = _class_0
+_module_0["Something"] = Something
+return _module_0
+local _module_0 = { }
+local loadstring, tolua
+do
+        local _obj_0 = yue
+        loadstring, tolua = _obj_0.loadstring, _obj_0.to_lua
+end
+_module_0["loadstring"], _module_0["tolua"] = loadstring, tolua
+local fieldA = tb.itemA.fieldA
+if fieldA == nil then
+        fieldA = '默认值'
+end
+_module_0["fieldA"] = fieldA
+return _module_0
+local _module_0 = setmetatable({ }, { })
+_module_0.itemA = tb
+getmetatable(_module_0).__index = items
+_module_0["a-b-c"] = 123
+return _module_0
+local _module_0 = { }
+local d, e, f = 3, 2, 1
+_module_0[#_module_0 + 1] = d
+_module_0[#_module_0 + 1] = e
+_module_0[#_module_0 + 1] = f
+if this then
+        _module_0[#_module_0 + 1] = 123
+else
+        _module_0[#_module_0 + 1] = 456
+end
+local _with_0 = tmp
+local j = 2000
+_module_0[#_module_0 + 1] = _with_0
+return _module_0
+local _module_0 = nil
+_module_0 = function()
+        print("你好")
+        return 123
+end
+return _module_0
+do
+        local insert, concat = table.insert, table.concat
+        local C, Ct, Cmt
+        do
+                local _obj_0 = require("lpeg")
+                C, Ct, Cmt = _obj_0.C, _obj_0.Ct, _obj_0.Cmt
+        end
+        local x, y, z
+        do
+                local _obj_0 = require('mymodule')
+                x, y, z = _obj_0.x, _obj_0.y, _obj_0.z
+        end
+        local a, b, c
+        local _obj_0 = require('module')
+        a, b, c = _obj_0.a, _obj_0.b, _obj_0.c
+end
+do
+        local module = require('module')
+        local module_x = require('module_x')
+        local d_a_s_h_e_s = require("d-a-s-h-e-s")
+        local part = require("module.part")
+end
+do
+        local PlayerModule = require("player")
+        local C, Ct, Cmt
+        do
+                local _obj_0 = require("lpeg")
+                C, Ct, Cmt = _obj_0.C, _obj_0.Ct, _obj_0.Cmt
+        end
+        local one, two, ch
+        local _obj_0 = require("export")
+        one, two, ch = _obj_0[1], _obj_0[2], _obj_0.Something.umm[1]
+end
+do
+        local tostring <const> = tostring
+        local concat <const> = table.concat
+        print(concat({
+                "a",
+                tostring(1)
+        }))
+end
+do
+        local print <const> = print
+        local math <const> = math
+        print("hello")
+        math.random(3)
+end
+do
+        local print <const> = print
+        print(FLAG)
+        FLAG = 123
+end
+local _module_0 = { }
+local a, b, c = 1, 2, 3
+_module_0["a"], _module_0["b"], _module_0["c"] = a, b, c
+local cool = "cat"
+_module_0["cool"] = cool
+local What
+if this then
+        What = "abc"
+else
+        What = "def"
+end
+_module_0["What"] = What
+local y
+y = function()
+        local hallo = 3434
+end
+_module_0["y"] = y
+local Something
+local _class_0
+local _base_0 = {
+        umm = "cool"
+}
+if _base_0.__index == nil then
+        _base_0.__index = _base_0
+end
+_class_0 = setmetatable({
+        __init = function() end,
+        __base = _base_0,
+        __name = "Something"
+}, {
+        __index = _base_0,
+        __call = function(cls, ...)
+                local _self_0 = setmetatable({ }, _base_0)
+                cls.__init(_self_0, ...)
+                return _self_0
+        end
+})
+_base_0.__class = _class_0
+Something = _class_0
+_module_0["Something"] = Something
+return _module_0
+local _module_0 = { }
+local loadstring, tolua
+do
+        local _obj_0 = yue
+        loadstring, tolua = _obj_0.loadstring, _obj_0.to_lua
+end
+_module_0["loadstring"], _module_0["tolua"] = loadstring, tolua
+local fieldA = tb.itemA.fieldA
+if fieldA == nil then
+        fieldA = '默认值'
+end
+_module_0["fieldA"] = fieldA
+return _module_0
+local _module_0 = setmetatable({ }, { })
+_module_0.itemA = tb
+getmetatable(_module_0).__index = items
+_module_0["a-b-c"] = 123
+return _module_0
+local _module_0 = { }
+local d, e, f = 3, 2, 1
+_module_0[#_module_0 + 1] = d
+_module_0[#_module_0 + 1] = e
+_module_0[#_module_0 + 1] = f
+if this then
+        _module_0[#_module_0 + 1] = 123
+else
+        _module_0[#_module_0 + 1] = 456
+end
+local _with_0 = tmp
+local j = 2000
+_module_0[#_module_0 + 1] = _with_0
+return _module_0
+local _module_0 = nil
+_module_0 = function()
+        print("你好")
+        return 123
+end
+return _module_0
diff --git a/spec/outputs/compile_doc.lua b/spec/outputs/compile_doc.lua
index 6a5efd5..8d5c11a 100644
--- a/spec/outputs/compile_doc.lua
+++ b/spec/outputs/compile_doc.lua
@@ -11,7 +11,6 @@ getFiles = function(locale)
                 "doc/docs/" .. tostring(locale) .. "doc/advanced/do.md",
                 "doc/docs/" .. tostring(locale) .. "doc/advanced/line-decorators.md",
                 "doc/docs/" .. tostring(locale) .. "doc/advanced/macro.md",
-                "doc/docs/" .. tostring(locale) .. "doc/advanced/module.md",
                 "doc/docs/" .. tostring(locale) .. "doc/advanced/try.md",
                 "doc/docs/" .. tostring(locale) .. "doc/data-structures/table-literals.md",
                 "doc/docs/" .. tostring(locale) .. "doc/data-structures/comprehensions.md",
@@ -38,6 +37,7 @@ getFiles = function(locale)
                 "doc/docs/" .. tostring(locale) .. "doc/language-basics/attributes.md",
                 "doc/docs/" .. tostring(locale) .. "doc/language-basics/operator.md",
                 "doc/docs/" .. tostring(locale) .. "doc/language-basics/literals.md",
+                "doc/docs/" .. tostring(locale) .. "doc/language-basics/module.md",
                 "doc/docs/" .. tostring(locale) .. "doc/reference/license-mit.md",
                 "doc/docs/" .. tostring(locale) .. "doc/reference/the-yuescript-library.md"
         }