lama_byterun/lama-compiler/regression/test015.lama

var s = 0, n, p;

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

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