lama_byterun/regression/test015.expr

global s, n, p;

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

while n > 0 do {
    local 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