procedure mythread()
    ?"mythread"
    exit_thread(0)
end procedure

atom hThread = create_thread(routine_id("mythread"),{})
?"main carries on"
wait_thread(hThread)