<% dim a,b,c, x,y,z do x=1 loop do while x x = 1 loop do x =1 loop while x do x = 1 loop until x while x x wend %>