method x()
  while x do
    while x do
      var x:=x;
    end;
  end;
end;