f[0:9]:integer = (1,4,8,10,21,23,40,41,50,55); g[0:6]:integer = (4,13,20,23,35,40,45); h[0:8]:integer = (5,8,11,13,23,31,32,40,44); i,j,k:=0,0,0; do f[i] i:=i+1 | g[j] j:=j+1 | h[k] k:=k+1 od