resource main()
import pipe 
const int n = 4
const int m = 10
const string[10] hosts[n] = ("maseru","tabora","boende","tabora")
cap vm vmcap[m] 
int inp 
op chan[1:m+1] (int)
op ret (int)

for [i=1 to n] { locate(i,hosts[i]) }
for [i=1 to m] { vmcap[i] = create vm() on ((i-1) mod n)+1; 
                write(hosts[((i-1) mod n)+1]," bereit")
}

write("Bitte Werte eingeben")
for [i=1 to m] { read(inp); send chan[1](inp) }
for [i=1 to m] { create pipe(i,m,chan[i],chan[i+1],ret) on vmcap[i] }
for [i=1 to m] { receive  chan[m+1](inp); writes(inp,"   ") }
# for [i=1 to m] { receive  ret(inp); writes(inp,"   ") } 
write()

end main