lama_byterun/regression/test015.expr

s := 0;
n := read ();
p := 2;

while n > 0 do
    c := 2;
    f := 1;

    while c*c <= p && f do
      f := (p % c) != 0;
      c := c + 1
    od;

    if f != 0 then
      if n == 1 then write (p) else skip fi;
      n := n - 1
    else skip fi;

    p := p + 1
od