let
  type aint = array of int
  var f: aint := new aint[10] of 0
  var sum:int := 0
  var sum2:int := 0
  var res:string := "nothing"
in
  f[0] := 5;
  f[1] := 3;
  f[2] := 123;
  f[3] := 432;
  f[4] := 3;
  f[5] := 9943;
  f[6] := 3423;
  f[7] := 3;
  f[8] := 3;
  f[9] := 3 + f[2];
  
  for i:=0 to 9 do
    sum := sum + f[i];
  
  sum2 := 
  (let
    var sum:int := 0
    var i:int := 0
   in
    while (i<10) do
      (sum := sum + f[i]; i := i + 1);
    sum
  end);
  
  res := (if (sum = sum2) then "working" else "oooopsss");
  
  res
end