threadAttributes - create an object of class
threadAttributes with the default
values overridden by those passed to this function.
sink("output)
for(i in 1:10) {
attrs = threadAttributes(priority = i)
thread(Quote(i=0;while(i < 100) print(i = i+1)), attributes=attrs)
}