Untitled

{.experimental.}
import os, strutils, threadpool

if paramCount() < 1:
  quit() 


proc longCompute(n: int) =
  var data: int = 0
  for x in 0..100:
    data = n * data
  echo $data

proc main(arg: int) = 
  parallel:
    for x in 0..3:
      spawn longCompute(arg)
  
when isMainModule:
  if paramCount() < 1:
    quit()
  
  let arg = parseInt(paramStr(1))
  main(arg)