procedure main()
	primes := create !(p := 1, a := [2]) | 1( |(p +:= 2), not( p % !a = 0), put(a, p) )	
	every 1 to 20 do write( @primes )
end