% Primszam iteracio I - Primsorozat

primes = iter ( from, to : int ) yields ( int )
  i : int := from
  d, d2d, d2 : int

  if i < 2 then % lehet 1 is
    i := 2
  end %if
  while i <= to do
    d, d2d, d2 := 2, 5, 4
    while d2 <= i cand i // d ~= 0 do
      d, d2d, d2 := d + 1, d2d + 2, d2 + d2d
    end %while
    if d2 > i then
      yield ( i )
    end %if
    i := i + 1
  end %while

end primes

start_up = proc ()
  po: stream := stream$primary_output()

  po!putl("Primszam iteracio Demo I - Primsorozat")
  for i:int in primes(1, 1000000) do
    po!putl(i!unparse)
  end

end start_up