import os
import stint

proc fillseq(teste: var seq[Int128], x: int) =
  for i in 1 .. x:
    add(teste, i128(i))


proc test() {.thread.} =
  var teste = newSeqOfCap[Int128](1_000_000)

  fillseq(teste, 1_000_000)

  teste = newSeqOfCap[Int128](10_000)

  fillseq(teste, 10_000)


var thr: Thread[void]

createThread(thr, test)

while running(thr):
  sleep(1000)

echo "Thread halt"

while true:
  sleep(1000)