Pooh program example 03-prime-while-loop.p

Test 03-prime-while-loop.p

Source of programm

# array test: sieve of Eratosthenes gets all prime numbers


sub primes( max )

  mark = []
  ret = []

  n = 2 
  while n < max
    m = 2 * n
    loop 
        if m > max
            break
        end
        mark[ m ] = 1
        m = m + n
    end
    n = n + 1
  end

  n = 2
  while n  < max
    if mark[ n ] != 1
       push( ~array ret ~top n )
    end
    n = n + 1
  end

  return ret
end


# get prime numbers up to 100
pr = primes( ~max 100 )

# print them out.
i = 1
while i <= size( ~arg pr)
# println( ~msg 'prime number [ pr[i] ]' )
  println( ~msg 'prime number ' ..  pr[i]  )

  i = i + 1
end

Standard output for 03-prime-while-loop.p

prime number 2
prime number 3
prime number 5
prime number 7
prime number 11
prime number 13
prime number 17
prime number 19
prime number 23
prime number 29
prime number 31
prime number 37
prime number 41
prime number 43
prime number 47
prime number 53
prime number 59
prime number 61
prime number 67
prime number 71
prime number 73
prime number 79
prime number 83
prime number 89
prime number 97

Trace output for 03-prime-while-loop.p

035|... = primes( ~max 100 )...
006| mark = [ ] 
007| ret = [ ] 
009| n = 2
010| while (n:2 < max:100):true
011|  m = (2 * n:2):4
012|  loop
013|   if (m:4 > max:100):false
014|   end # if
016|   mark[m:4]:1 = 1
017|   m = (m:4 + n:2):6
018|  end
012|  loop
013|   if (m:6 > max:100):false
014|   end # if
016|   mark[m:6]:1 = 1
017|   m = (m:6 + n:2):8
018|  end
012|  loop
013|   if (m:8 > max:100):false
014|   end # if
016|   mark[m:8]:1 = 1
017|   m = (m:8 + n:2):10
018|  end
012|  loop
013|   if (m:10 > max:100):false
014|   end # if
016|   mark[m:10]:1 = 1
017|   m = (m:10 + n:2):12
018|  end
012|  loop
013|   if (m:12 > max:100):false
014|   end # if
016|   mark[m:12]:1 = 1
017|   m = (m:12 + n:2):14
018|  end
012|  loop
013|   if (m:14 > max:100):false
014|   end # if
016|   mark[m:14]:1 = 1
017|   m = (m:14 + n:2):16
018|  end
012|  loop
013|   if (m:16 > max:100):false
014|   end # if
016|   mark[m:16]:1 = 1
017|   m = (m:16 + n:2):18
018|  end
012|  loop
013|   if (m:18 > max:100):false
014|   end # if
016|   mark[m:18]:1 = 1
017|   m = (m:18 + n:2):20
018|  end
012|  loop
013|   if (m:20 > max:100):false
014|   end # if
016|   mark[m:20]:1 = 1
017|   m = (m:20 + n:2):22
018|  end
012|  loop
013|   if (m:22 > max:100):false
014|   end # if
016|   mark[m:22]:1 = 1
017|   m = (m:22 + n:2):24
018|  end
012|  loop
013|   if (m:24 > max:100):false
014|   end # if
016|   mark[m:24]:1 = 1
017|   m = (m:24 + n:2):26
018|  end
012|  loop
013|   if (m:26 > max:100):false
014|   end # if
016|   mark[m:26]:1 = 1
017|   m = (m:26 + n:2):28
018|  end
012|  loop
013|   if (m:28 > max:100):false
014|   end # if
016|   mark[m:28]:1 = 1
017|   m = (m:28 + n:2):30
018|  end
012|  loop
013|   if (m:30 > max:100):false
014|   end # if
016|   mark[m:30]:1 = 1
017|   m = (m:30 + n:2):32
018|  end
012|  loop
013|   if (m:32 > max:100):false
014|   end # if
016|   mark[m:32]:1 = 1
017|   m = (m:32 + n:2):34
018|  end
012|  loop
013|   if (m:34 > max:100):false
014|   end # if
016|   mark[m:34]:1 = 1
017|   m = (m:34 + n:2):36
018|  end
012|  loop
013|   if (m:36 > max:100):false
014|   end # if
016|   mark[m:36]:1 = 1
017|   m = (m:36 + n:2):38
018|  end
012|  loop
013|   if (m:38 > max:100):false
014|   end # if
016|   mark[m:38]:1 = 1
017|   m = (m:38 + n:2):40
018|  end
012|  loop
013|   if (m:40 > max:100):false
014|   end # if
016|   mark[m:40]:1 = 1
017|   m = (m:40 + n:2):42
018|  end
012|  loop
013|   if (m:42 > max:100):false
014|   end # if
016|   mark[m:42]:1 = 1
017|   m = (m:42 + n:2):44
018|  end
012|  loop
013|   if (m:44 > max:100):false
014|   end # if
016|   mark[m:44]:1 = 1
017|   m = (m:44 + n:2):46
018|  end
012|  loop
013|   if (m:46 > max:100):false
014|   end # if
016|   mark[m:46]:1 = 1
017|   m = (m:46 + n:2):48
018|  end
012|  loop
013|   if (m:48 > max:100):false
014|   end # if
016|   mark[m:48]:1 = 1
017|   m = (m:48 + n:2):50
018|  end
012|  loop
013|   if (m:50 > max:100):false
014|   end # if
016|   mark[m:50]:1 = 1
017|   m = (m:50 + n:2):52
018|  end
012|  loop
013|   if (m:52 > max:100):false
014|   end # if
016|   mark[m:52]:1 = 1
017|   m = (m:52 + n:2):54
018|  end
012|  loop
013|   if (m:54 > max:100):false
014|   end # if
016|   mark[m:54]:1 = 1
017|   m = (m:54 + n:2):56
018|  end
012|  loop
013|   if (m:56 > max:100):false
014|   end # if
016|   mark[m:56]:1 = 1
017|   m = (m:56 + n:2):58
018|  end
012|  loop
013|   if (m:58 > max:100):false
014|   end # if
016|   mark[m:58]:1 = 1
017|   m = (m:58 + n:2):60
018|  end
012|  loop
013|   if (m:60 > max:100):false
014|   end # if
016|   mark[m:60]:1 = 1
017|   m = (m:60 + n:2):62
018|  end
012|  loop
013|   if (m:62 > max:100):false
014|   end # if
016|   mark[m:62]:1 = 1
017|   m = (m:62 + n:2):64
018|  end
012|  loop
013|   if (m:64 > max:100):false
014|   end # if
016|   mark[m:64]:1 = 1
017|   m = (m:64 + n:2):66
018|  end
012|  loop
013|   if (m:66 > max:100):false
014|   end # if
016|   mark[m:66]:1 = 1
017|   m = (m:66 + n:2):68
018|  end
012|  loop
013|   if (m:68 > max:100):false
014|   end # if
016|   mark[m:68]:1 = 1
017|   m = (m:68 + n:2):70
018|  end
012|  loop
013|   if (m:70 > max:100):false
014|   end # if
016|   mark[m:70]:1 = 1
017|   m = (m:70 + n:2):72
018|  end
012|  loop
013|   if (m:72 > max:100):false
014|   end # if
016|   mark[m:72]:1 = 1
017|   m = (m:72 + n:2):74
018|  end
012|  loop
013|   if (m:74 > max:100):false
014|   end # if
016|   mark[m:74]:1 = 1
017|   m = (m:74 + n:2):76
018|  end
012|  loop
013|   if (m:76 > max:100):false
014|   end # if
016|   mark[m:76]:1 = 1
017|   m = (m:76 + n:2):78
018|  end
012|  loop
013|   if (m:78 > max:100):false
014|   end # if
016|   mark[m:78]:1 = 1
017|   m = (m:78 + n:2):80
018|  end
012|  loop
013|   if (m:80 > max:100):false
014|   end # if
016|   mark[m:80]:1 = 1
017|   m = (m:80 + n:2):82
018|  end
012|  loop
013|   if (m:82 > max:100):false
014|   end # if
016|   mark[m:82]:1 = 1
017|   m = (m:82 + n:2):84
018|  end
012|  loop
013|   if (m:84 > max:100):false
014|   end # if
016|   mark[m:84]:1 = 1
017|   m = (m:84 + n:2):86
018|  end
012|  loop
013|   if (m:86 > max:100):false
014|   end # if
016|   mark[m:86]:1 = 1
017|   m = (m:86 + n:2):88
018|  end
012|  loop
013|   if (m:88 > max:100):false
014|   end # if
016|   mark[m:88]:1 = 1
017|   m = (m:88 + n:2):90
018|  end
012|  loop
013|   if (m:90 > max:100):false
014|   end # if
016|   mark[m:90]:1 = 1
017|   m = (m:90 + n:2):92
018|  end
012|  loop
013|   if (m:92 > max:100):false
014|   end # if
016|   mark[m:92]:1 = 1
017|   m = (m:92 + n:2):94
018|  end
012|  loop
013|   if (m:94 > max:100):false
014|   end # if
016|   mark[m:94]:1 = 1
017|   m = (m:94 + n:2):96
018|  end
012|  loop
013|   if (m:96 > max:100):false
014|   end # if
016|   mark[m:96]:1 = 1
017|   m = (m:96 + n:2):98
018|  end
012|  loop
013|   if (m:98 > max:100):false
014|   end # if
016|   mark[m:98]:1 = 1
017|   m = (m:98 + n:2):100
018|  end
012|  loop
013|   if (m:100 > max:100):false
014|   end # if
016|   mark[m:100]:1 = 1
017|   m = (m:100 + n:2):102
018|  end
012|  loop
013|   if (m:102 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:2 + 1):3
020| end
010| while (n:3 < max:100):true
011|  m = (2 * n:3):6
012|  loop
013|   if (m:6 > max:100):false
014|   end # if
016|   mark[m:6]:1 = 1
017|   m = (m:6 + n:3):9
018|  end
012|  loop
013|   if (m:9 > max:100):false
014|   end # if
016|   mark[m:9]:1 = 1
017|   m = (m:9 + n:3):12
018|  end
012|  loop
013|   if (m:12 > max:100):false
014|   end # if
016|   mark[m:12]:1 = 1
017|   m = (m:12 + n:3):15
018|  end
012|  loop
013|   if (m:15 > max:100):false
014|   end # if
016|   mark[m:15]:1 = 1
017|   m = (m:15 + n:3):18
018|  end
012|  loop
013|   if (m:18 > max:100):false
014|   end # if
016|   mark[m:18]:1 = 1
017|   m = (m:18 + n:3):21
018|  end
012|  loop
013|   if (m:21 > max:100):false
014|   end # if
016|   mark[m:21]:1 = 1
017|   m = (m:21 + n:3):24
018|  end
012|  loop
013|   if (m:24 > max:100):false
014|   end # if
016|   mark[m:24]:1 = 1
017|   m = (m:24 + n:3):27
018|  end
012|  loop
013|   if (m:27 > max:100):false
014|   end # if
016|   mark[m:27]:1 = 1
017|   m = (m:27 + n:3):30
018|  end
012|  loop
013|   if (m:30 > max:100):false
014|   end # if
016|   mark[m:30]:1 = 1
017|   m = (m:30 + n:3):33
018|  end
012|  loop
013|   if (m:33 > max:100):false
014|   end # if
016|   mark[m:33]:1 = 1
017|   m = (m:33 + n:3):36
018|  end
012|  loop
013|   if (m:36 > max:100):false
014|   end # if
016|   mark[m:36]:1 = 1
017|   m = (m:36 + n:3):39
018|  end
012|  loop
013|   if (m:39 > max:100):false
014|   end # if
016|   mark[m:39]:1 = 1
017|   m = (m:39 + n:3):42
018|  end
012|  loop
013|   if (m:42 > max:100):false
014|   end # if
016|   mark[m:42]:1 = 1
017|   m = (m:42 + n:3):45
018|  end
012|  loop
013|   if (m:45 > max:100):false
014|   end # if
016|   mark[m:45]:1 = 1
017|   m = (m:45 + n:3):48
018|  end
012|  loop
013|   if (m:48 > max:100):false
014|   end # if
016|   mark[m:48]:1 = 1
017|   m = (m:48 + n:3):51
018|  end
012|  loop
013|   if (m:51 > max:100):false
014|   end # if
016|   mark[m:51]:1 = 1
017|   m = (m:51 + n:3):54
018|  end
012|  loop
013|   if (m:54 > max:100):false
014|   end # if
016|   mark[m:54]:1 = 1
017|   m = (m:54 + n:3):57
018|  end
012|  loop
013|   if (m:57 > max:100):false
014|   end # if
016|   mark[m:57]:1 = 1
017|   m = (m:57 + n:3):60
018|  end
012|  loop
013|   if (m:60 > max:100):false
014|   end # if
016|   mark[m:60]:1 = 1
017|   m = (m:60 + n:3):63
018|  end
012|  loop
013|   if (m:63 > max:100):false
014|   end # if
016|   mark[m:63]:1 = 1
017|   m = (m:63 + n:3):66
018|  end
012|  loop
013|   if (m:66 > max:100):false
014|   end # if
016|   mark[m:66]:1 = 1
017|   m = (m:66 + n:3):69
018|  end
012|  loop
013|   if (m:69 > max:100):false
014|   end # if
016|   mark[m:69]:1 = 1
017|   m = (m:69 + n:3):72
018|  end
012|  loop
013|   if (m:72 > max:100):false
014|   end # if
016|   mark[m:72]:1 = 1
017|   m = (m:72 + n:3):75
018|  end
012|  loop
013|   if (m:75 > max:100):false
014|   end # if
016|   mark[m:75]:1 = 1
017|   m = (m:75 + n:3):78
018|  end
012|  loop
013|   if (m:78 > max:100):false
014|   end # if
016|   mark[m:78]:1 = 1
017|   m = (m:78 + n:3):81
018|  end
012|  loop
013|   if (m:81 > max:100):false
014|   end # if
016|   mark[m:81]:1 = 1
017|   m = (m:81 + n:3):84
018|  end
012|  loop
013|   if (m:84 > max:100):false
014|   end # if
016|   mark[m:84]:1 = 1
017|   m = (m:84 + n:3):87
018|  end
012|  loop
013|   if (m:87 > max:100):false
014|   end # if
016|   mark[m:87]:1 = 1
017|   m = (m:87 + n:3):90
018|  end
012|  loop
013|   if (m:90 > max:100):false
014|   end # if
016|   mark[m:90]:1 = 1
017|   m = (m:90 + n:3):93
018|  end
012|  loop
013|   if (m:93 > max:100):false
014|   end # if
016|   mark[m:93]:1 = 1
017|   m = (m:93 + n:3):96
018|  end
012|  loop
013|   if (m:96 > max:100):false
014|   end # if
016|   mark[m:96]:1 = 1
017|   m = (m:96 + n:3):99
018|  end
012|  loop
013|   if (m:99 > max:100):false
014|   end # if
016|   mark[m:99]:1 = 1
017|   m = (m:99 + n:3):102
018|  end
012|  loop
013|   if (m:102 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:3 + 1):4
020| end
010| while (n:4 < max:100):true
011|  m = (2 * n:4):8
012|  loop
013|   if (m:8 > max:100):false
014|   end # if
016|   mark[m:8]:1 = 1
017|   m = (m:8 + n:4):12
018|  end
012|  loop
013|   if (m:12 > max:100):false
014|   end # if
016|   mark[m:12]:1 = 1
017|   m = (m:12 + n:4):16
018|  end
012|  loop
013|   if (m:16 > max:100):false
014|   end # if
016|   mark[m:16]:1 = 1
017|   m = (m:16 + n:4):20
018|  end
012|  loop
013|   if (m:20 > max:100):false
014|   end # if
016|   mark[m:20]:1 = 1
017|   m = (m:20 + n:4):24
018|  end
012|  loop
013|   if (m:24 > max:100):false
014|   end # if
016|   mark[m:24]:1 = 1
017|   m = (m:24 + n:4):28
018|  end
012|  loop
013|   if (m:28 > max:100):false
014|   end # if
016|   mark[m:28]:1 = 1
017|   m = (m:28 + n:4):32
018|  end
012|  loop
013|   if (m:32 > max:100):false
014|   end # if
016|   mark[m:32]:1 = 1
017|   m = (m:32 + n:4):36
018|  end
012|  loop
013|   if (m:36 > max:100):false
014|   end # if
016|   mark[m:36]:1 = 1
017|   m = (m:36 + n:4):40
018|  end
012|  loop
013|   if (m:40 > max:100):false
014|   end # if
016|   mark[m:40]:1 = 1
017|   m = (m:40 + n:4):44
018|  end
012|  loop
013|   if (m:44 > max:100):false
014|   end # if
016|   mark[m:44]:1 = 1
017|   m = (m:44 + n:4):48
018|  end
012|  loop
013|   if (m:48 > max:100):false
014|   end # if
016|   mark[m:48]:1 = 1
017|   m = (m:48 + n:4):52
018|  end
012|  loop
013|   if (m:52 > max:100):false
014|   end # if
016|   mark[m:52]:1 = 1
017|   m = (m:52 + n:4):56
018|  end
012|  loop
013|   if (m:56 > max:100):false
014|   end # if
016|   mark[m:56]:1 = 1
017|   m = (m:56 + n:4):60
018|  end
012|  loop
013|   if (m:60 > max:100):false
014|   end # if
016|   mark[m:60]:1 = 1
017|   m = (m:60 + n:4):64
018|  end
012|  loop
013|   if (m:64 > max:100):false
014|   end # if
016|   mark[m:64]:1 = 1
017|   m = (m:64 + n:4):68
018|  end
012|  loop
013|   if (m:68 > max:100):false
014|   end # if
016|   mark[m:68]:1 = 1
017|   m = (m:68 + n:4):72
018|  end
012|  loop
013|   if (m:72 > max:100):false
014|   end # if
016|   mark[m:72]:1 = 1
017|   m = (m:72 + n:4):76
018|  end
012|  loop
013|   if (m:76 > max:100):false
014|   end # if
016|   mark[m:76]:1 = 1
017|   m = (m:76 + n:4):80
018|  end
012|  loop
013|   if (m:80 > max:100):false
014|   end # if
016|   mark[m:80]:1 = 1
017|   m = (m:80 + n:4):84
018|  end
012|  loop
013|   if (m:84 > max:100):false
014|   end # if
016|   mark[m:84]:1 = 1
017|   m = (m:84 + n:4):88
018|  end
012|  loop
013|   if (m:88 > max:100):false
014|   end # if
016|   mark[m:88]:1 = 1
017|   m = (m:88 + n:4):92
018|  end
012|  loop
013|   if (m:92 > max:100):false
014|   end # if
016|   mark[m:92]:1 = 1
017|   m = (m:92 + n:4):96
018|  end
012|  loop
013|   if (m:96 > max:100):false
014|   end # if
016|   mark[m:96]:1 = 1
017|   m = (m:96 + n:4):100
018|  end
012|  loop
013|   if (m:100 > max:100):false
014|   end # if
016|   mark[m:100]:1 = 1
017|   m = (m:100 + n:4):104
018|  end
012|  loop
013|   if (m:104 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:4 + 1):5
020| end
010| while (n:5 < max:100):true
011|  m = (2 * n:5):10
012|  loop
013|   if (m:10 > max:100):false
014|   end # if
016|   mark[m:10]:1 = 1
017|   m = (m:10 + n:5):15
018|  end
012|  loop
013|   if (m:15 > max:100):false
014|   end # if
016|   mark[m:15]:1 = 1
017|   m = (m:15 + n:5):20
018|  end
012|  loop
013|   if (m:20 > max:100):false
014|   end # if
016|   mark[m:20]:1 = 1
017|   m = (m:20 + n:5):25
018|  end
012|  loop
013|   if (m:25 > max:100):false
014|   end # if
016|   mark[m:25]:1 = 1
017|   m = (m:25 + n:5):30
018|  end
012|  loop
013|   if (m:30 > max:100):false
014|   end # if
016|   mark[m:30]:1 = 1
017|   m = (m:30 + n:5):35
018|  end
012|  loop
013|   if (m:35 > max:100):false
014|   end # if
016|   mark[m:35]:1 = 1
017|   m = (m:35 + n:5):40
018|  end
012|  loop
013|   if (m:40 > max:100):false
014|   end # if
016|   mark[m:40]:1 = 1
017|   m = (m:40 + n:5):45
018|  end
012|  loop
013|   if (m:45 > max:100):false
014|   end # if
016|   mark[m:45]:1 = 1
017|   m = (m:45 + n:5):50
018|  end
012|  loop
013|   if (m:50 > max:100):false
014|   end # if
016|   mark[m:50]:1 = 1
017|   m = (m:50 + n:5):55
018|  end
012|  loop
013|   if (m:55 > max:100):false
014|   end # if
016|   mark[m:55]:1 = 1
017|   m = (m:55 + n:5):60
018|  end
012|  loop
013|   if (m:60 > max:100):false
014|   end # if
016|   mark[m:60]:1 = 1
017|   m = (m:60 + n:5):65
018|  end
012|  loop
013|   if (m:65 > max:100):false
014|   end # if
016|   mark[m:65]:1 = 1
017|   m = (m:65 + n:5):70
018|  end
012|  loop
013|   if (m:70 > max:100):false
014|   end # if
016|   mark[m:70]:1 = 1
017|   m = (m:70 + n:5):75
018|  end
012|  loop
013|   if (m:75 > max:100):false
014|   end # if
016|   mark[m:75]:1 = 1
017|   m = (m:75 + n:5):80
018|  end
012|  loop
013|   if (m:80 > max:100):false
014|   end # if
016|   mark[m:80]:1 = 1
017|   m = (m:80 + n:5):85
018|  end
012|  loop
013|   if (m:85 > max:100):false
014|   end # if
016|   mark[m:85]:1 = 1
017|   m = (m:85 + n:5):90
018|  end
012|  loop
013|   if (m:90 > max:100):false
014|   end # if
016|   mark[m:90]:1 = 1
017|   m = (m:90 + n:5):95
018|  end
012|  loop
013|   if (m:95 > max:100):false
014|   end # if
016|   mark[m:95]:1 = 1
017|   m = (m:95 + n:5):100
018|  end
012|  loop
013|   if (m:100 > max:100):false
014|   end # if
016|   mark[m:100]:1 = 1
017|   m = (m:100 + n:5):105
018|  end
012|  loop
013|   if (m:105 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:5 + 1):6
020| end
010| while (n:6 < max:100):true
011|  m = (2 * n:6):12
012|  loop
013|   if (m:12 > max:100):false
014|   end # if
016|   mark[m:12]:1 = 1
017|   m = (m:12 + n:6):18
018|  end
012|  loop
013|   if (m:18 > max:100):false
014|   end # if
016|   mark[m:18]:1 = 1
017|   m = (m:18 + n:6):24
018|  end
012|  loop
013|   if (m:24 > max:100):false
014|   end # if
016|   mark[m:24]:1 = 1
017|   m = (m:24 + n:6):30
018|  end
012|  loop
013|   if (m:30 > max:100):false
014|   end # if
016|   mark[m:30]:1 = 1
017|   m = (m:30 + n:6):36
018|  end
012|  loop
013|   if (m:36 > max:100):false
014|   end # if
016|   mark[m:36]:1 = 1
017|   m = (m:36 + n:6):42
018|  end
012|  loop
013|   if (m:42 > max:100):false
014|   end # if
016|   mark[m:42]:1 = 1
017|   m = (m:42 + n:6):48
018|  end
012|  loop
013|   if (m:48 > max:100):false
014|   end # if
016|   mark[m:48]:1 = 1
017|   m = (m:48 + n:6):54
018|  end
012|  loop
013|   if (m:54 > max:100):false
014|   end # if
016|   mark[m:54]:1 = 1
017|   m = (m:54 + n:6):60
018|  end
012|  loop
013|   if (m:60 > max:100):false
014|   end # if
016|   mark[m:60]:1 = 1
017|   m = (m:60 + n:6):66
018|  end
012|  loop
013|   if (m:66 > max:100):false
014|   end # if
016|   mark[m:66]:1 = 1
017|   m = (m:66 + n:6):72
018|  end
012|  loop
013|   if (m:72 > max:100):false
014|   end # if
016|   mark[m:72]:1 = 1
017|   m = (m:72 + n:6):78
018|  end
012|  loop
013|   if (m:78 > max:100):false
014|   end # if
016|   mark[m:78]:1 = 1
017|   m = (m:78 + n:6):84
018|  end
012|  loop
013|   if (m:84 > max:100):false
014|   end # if
016|   mark[m:84]:1 = 1
017|   m = (m:84 + n:6):90
018|  end
012|  loop
013|   if (m:90 > max:100):false
014|   end # if
016|   mark[m:90]:1 = 1
017|   m = (m:90 + n:6):96
018|  end
012|  loop
013|   if (m:96 > max:100):false
014|   end # if
016|   mark[m:96]:1 = 1
017|   m = (m:96 + n:6):102
018|  end
012|  loop
013|   if (m:102 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:6 + 1):7
020| end
010| while (n:7 < max:100):true
011|  m = (2 * n:7):14
012|  loop
013|   if (m:14 > max:100):false
014|   end # if
016|   mark[m:14]:1 = 1
017|   m = (m:14 + n:7):21
018|  end
012|  loop
013|   if (m:21 > max:100):false
014|   end # if
016|   mark[m:21]:1 = 1
017|   m = (m:21 + n:7):28
018|  end
012|  loop
013|   if (m:28 > max:100):false
014|   end # if
016|   mark[m:28]:1 = 1
017|   m = (m:28 + n:7):35
018|  end
012|  loop
013|   if (m:35 > max:100):false
014|   end # if
016|   mark[m:35]:1 = 1
017|   m = (m:35 + n:7):42
018|  end
012|  loop
013|   if (m:42 > max:100):false
014|   end # if
016|   mark[m:42]:1 = 1
017|   m = (m:42 + n:7):49
018|  end
012|  loop
013|   if (m:49 > max:100):false
014|   end # if
016|   mark[m:49]:1 = 1
017|   m = (m:49 + n:7):56
018|  end
012|  loop
013|   if (m:56 > max:100):false
014|   end # if
016|   mark[m:56]:1 = 1
017|   m = (m:56 + n:7):63
018|  end
012|  loop
013|   if (m:63 > max:100):false
014|   end # if
016|   mark[m:63]:1 = 1
017|   m = (m:63 + n:7):70
018|  end
012|  loop
013|   if (m:70 > max:100):false
014|   end # if
016|   mark[m:70]:1 = 1
017|   m = (m:70 + n:7):77
018|  end
012|  loop
013|   if (m:77 > max:100):false
014|   end # if
016|   mark[m:77]:1 = 1
017|   m = (m:77 + n:7):84
018|  end
012|  loop
013|   if (m:84 > max:100):false
014|   end # if
016|   mark[m:84]:1 = 1
017|   m = (m:84 + n:7):91
018|  end
012|  loop
013|   if (m:91 > max:100):false
014|   end # if
016|   mark[m:91]:1 = 1
017|   m = (m:91 + n:7):98
018|  end
012|  loop
013|   if (m:98 > max:100):false
014|   end # if
016|   mark[m:98]:1 = 1
017|   m = (m:98 + n:7):105
018|  end
012|  loop
013|   if (m:105 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:7 + 1):8
020| end
010| while (n:8 < max:100):true
011|  m = (2 * n:8):16
012|  loop
013|   if (m:16 > max:100):false
014|   end # if
016|   mark[m:16]:1 = 1
017|   m = (m:16 + n:8):24
018|  end
012|  loop
013|   if (m:24 > max:100):false
014|   end # if
016|   mark[m:24]:1 = 1
017|   m = (m:24 + n:8):32
018|  end
012|  loop
013|   if (m:32 > max:100):false
014|   end # if
016|   mark[m:32]:1 = 1
017|   m = (m:32 + n:8):40
018|  end
012|  loop
013|   if (m:40 > max:100):false
014|   end # if
016|   mark[m:40]:1 = 1
017|   m = (m:40 + n:8):48
018|  end
012|  loop
013|   if (m:48 > max:100):false
014|   end # if
016|   mark[m:48]:1 = 1
017|   m = (m:48 + n:8):56
018|  end
012|  loop
013|   if (m:56 > max:100):false
014|   end # if
016|   mark[m:56]:1 = 1
017|   m = (m:56 + n:8):64
018|  end
012|  loop
013|   if (m:64 > max:100):false
014|   end # if
016|   mark[m:64]:1 = 1
017|   m = (m:64 + n:8):72
018|  end
012|  loop
013|   if (m:72 > max:100):false
014|   end # if
016|   mark[m:72]:1 = 1
017|   m = (m:72 + n:8):80
018|  end
012|  loop
013|   if (m:80 > max:100):false
014|   end # if
016|   mark[m:80]:1 = 1
017|   m = (m:80 + n:8):88
018|  end
012|  loop
013|   if (m:88 > max:100):false
014|   end # if
016|   mark[m:88]:1 = 1
017|   m = (m:88 + n:8):96
018|  end
012|  loop
013|   if (m:96 > max:100):false
014|   end # if
016|   mark[m:96]:1 = 1
017|   m = (m:96 + n:8):104
018|  end
012|  loop
013|   if (m:104 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:8 + 1):9
020| end
010| while (n:9 < max:100):true
011|  m = (2 * n:9):18
012|  loop
013|   if (m:18 > max:100):false
014|   end # if
016|   mark[m:18]:1 = 1
017|   m = (m:18 + n:9):27
018|  end
012|  loop
013|   if (m:27 > max:100):false
014|   end # if
016|   mark[m:27]:1 = 1
017|   m = (m:27 + n:9):36
018|  end
012|  loop
013|   if (m:36 > max:100):false
014|   end # if
016|   mark[m:36]:1 = 1
017|   m = (m:36 + n:9):45
018|  end
012|  loop
013|   if (m:45 > max:100):false
014|   end # if
016|   mark[m:45]:1 = 1
017|   m = (m:45 + n:9):54
018|  end
012|  loop
013|   if (m:54 > max:100):false
014|   end # if
016|   mark[m:54]:1 = 1
017|   m = (m:54 + n:9):63
018|  end
012|  loop
013|   if (m:63 > max:100):false
014|   end # if
016|   mark[m:63]:1 = 1
017|   m = (m:63 + n:9):72
018|  end
012|  loop
013|   if (m:72 > max:100):false
014|   end # if
016|   mark[m:72]:1 = 1
017|   m = (m:72 + n:9):81
018|  end
012|  loop
013|   if (m:81 > max:100):false
014|   end # if
016|   mark[m:81]:1 = 1
017|   m = (m:81 + n:9):90
018|  end
012|  loop
013|   if (m:90 > max:100):false
014|   end # if
016|   mark[m:90]:1 = 1
017|   m = (m:90 + n:9):99
018|  end
012|  loop
013|   if (m:99 > max:100):false
014|   end # if
016|   mark[m:99]:1 = 1
017|   m = (m:99 + n:9):108
018|  end
012|  loop
013|   if (m:108 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:9 + 1):10
020| end
010| while (n:10 < max:100):true
011|  m = (2 * n:10):20
012|  loop
013|   if (m:20 > max:100):false
014|   end # if
016|   mark[m:20]:1 = 1
017|   m = (m:20 + n:10):30
018|  end
012|  loop
013|   if (m:30 > max:100):false
014|   end # if
016|   mark[m:30]:1 = 1
017|   m = (m:30 + n:10):40
018|  end
012|  loop
013|   if (m:40 > max:100):false
014|   end # if
016|   mark[m:40]:1 = 1
017|   m = (m:40 + n:10):50
018|  end
012|  loop
013|   if (m:50 > max:100):false
014|   end # if
016|   mark[m:50]:1 = 1
017|   m = (m:50 + n:10):60
018|  end
012|  loop
013|   if (m:60 > max:100):false
014|   end # if
016|   mark[m:60]:1 = 1
017|   m = (m:60 + n:10):70
018|  end
012|  loop
013|   if (m:70 > max:100):false
014|   end # if
016|   mark[m:70]:1 = 1
017|   m = (m:70 + n:10):80
018|  end
012|  loop
013|   if (m:80 > max:100):false
014|   end # if
016|   mark[m:80]:1 = 1
017|   m = (m:80 + n:10):90
018|  end
012|  loop
013|   if (m:90 > max:100):false
014|   end # if
016|   mark[m:90]:1 = 1
017|   m = (m:90 + n:10):100
018|  end
012|  loop
013|   if (m:100 > max:100):false
014|   end # if
016|   mark[m:100]:1 = 1
017|   m = (m:100 + n:10):110
018|  end
012|  loop
013|   if (m:110 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:10 + 1):11
020| end
010| while (n:11 < max:100):true
011|  m = (2 * n:11):22
012|  loop
013|   if (m:22 > max:100):false
014|   end # if
016|   mark[m:22]:1 = 1
017|   m = (m:22 + n:11):33
018|  end
012|  loop
013|   if (m:33 > max:100):false
014|   end # if
016|   mark[m:33]:1 = 1
017|   m = (m:33 + n:11):44
018|  end
012|  loop
013|   if (m:44 > max:100):false
014|   end # if
016|   mark[m:44]:1 = 1
017|   m = (m:44 + n:11):55
018|  end
012|  loop
013|   if (m:55 > max:100):false
014|   end # if
016|   mark[m:55]:1 = 1
017|   m = (m:55 + n:11):66
018|  end
012|  loop
013|   if (m:66 > max:100):false
014|   end # if
016|   mark[m:66]:1 = 1
017|   m = (m:66 + n:11):77
018|  end
012|  loop
013|   if (m:77 > max:100):false
014|   end # if
016|   mark[m:77]:1 = 1
017|   m = (m:77 + n:11):88
018|  end
012|  loop
013|   if (m:88 > max:100):false
014|   end # if
016|   mark[m:88]:1 = 1
017|   m = (m:88 + n:11):99
018|  end
012|  loop
013|   if (m:99 > max:100):false
014|   end # if
016|   mark[m:99]:1 = 1
017|   m = (m:99 + n:11):110
018|  end
012|  loop
013|   if (m:110 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:11 + 1):12
020| end
010| while (n:12 < max:100):true
011|  m = (2 * n:12):24
012|  loop
013|   if (m:24 > max:100):false
014|   end # if
016|   mark[m:24]:1 = 1
017|   m = (m:24 + n:12):36
018|  end
012|  loop
013|   if (m:36 > max:100):false
014|   end # if
016|   mark[m:36]:1 = 1
017|   m = (m:36 + n:12):48
018|  end
012|  loop
013|   if (m:48 > max:100):false
014|   end # if
016|   mark[m:48]:1 = 1
017|   m = (m:48 + n:12):60
018|  end
012|  loop
013|   if (m:60 > max:100):false
014|   end # if
016|   mark[m:60]:1 = 1
017|   m = (m:60 + n:12):72
018|  end
012|  loop
013|   if (m:72 > max:100):false
014|   end # if
016|   mark[m:72]:1 = 1
017|   m = (m:72 + n:12):84
018|  end
012|  loop
013|   if (m:84 > max:100):false
014|   end # if
016|   mark[m:84]:1 = 1
017|   m = (m:84 + n:12):96
018|  end
012|  loop
013|   if (m:96 > max:100):false
014|   end # if
016|   mark[m:96]:1 = 1
017|   m = (m:96 + n:12):108
018|  end
012|  loop
013|   if (m:108 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:12 + 1):13
020| end
010| while (n:13 < max:100):true
011|  m = (2 * n:13):26
012|  loop
013|   if (m:26 > max:100):false
014|   end # if
016|   mark[m:26]:1 = 1
017|   m = (m:26 + n:13):39
018|  end
012|  loop
013|   if (m:39 > max:100):false
014|   end # if
016|   mark[m:39]:1 = 1
017|   m = (m:39 + n:13):52
018|  end
012|  loop
013|   if (m:52 > max:100):false
014|   end # if
016|   mark[m:52]:1 = 1
017|   m = (m:52 + n:13):65
018|  end
012|  loop
013|   if (m:65 > max:100):false
014|   end # if
016|   mark[m:65]:1 = 1
017|   m = (m:65 + n:13):78
018|  end
012|  loop
013|   if (m:78 > max:100):false
014|   end # if
016|   mark[m:78]:1 = 1
017|   m = (m:78 + n:13):91
018|  end
012|  loop
013|   if (m:91 > max:100):false
014|   end # if
016|   mark[m:91]:1 = 1
017|   m = (m:91 + n:13):104
018|  end
012|  loop
013|   if (m:104 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:13 + 1):14
020| end
010| while (n:14 < max:100):true
011|  m = (2 * n:14):28
012|  loop
013|   if (m:28 > max:100):false
014|   end # if
016|   mark[m:28]:1 = 1
017|   m = (m:28 + n:14):42
018|  end
012|  loop
013|   if (m:42 > max:100):false
014|   end # if
016|   mark[m:42]:1 = 1
017|   m = (m:42 + n:14):56
018|  end
012|  loop
013|   if (m:56 > max:100):false
014|   end # if
016|   mark[m:56]:1 = 1
017|   m = (m:56 + n:14):70
018|  end
012|  loop
013|   if (m:70 > max:100):false
014|   end # if
016|   mark[m:70]:1 = 1
017|   m = (m:70 + n:14):84
018|  end
012|  loop
013|   if (m:84 > max:100):false
014|   end # if
016|   mark[m:84]:1 = 1
017|   m = (m:84 + n:14):98
018|  end
012|  loop
013|   if (m:98 > max:100):false
014|   end # if
016|   mark[m:98]:1 = 1
017|   m = (m:98 + n:14):112
018|  end
012|  loop
013|   if (m:112 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:14 + 1):15
020| end
010| while (n:15 < max:100):true
011|  m = (2 * n:15):30
012|  loop
013|   if (m:30 > max:100):false
014|   end # if
016|   mark[m:30]:1 = 1
017|   m = (m:30 + n:15):45
018|  end
012|  loop
013|   if (m:45 > max:100):false
014|   end # if
016|   mark[m:45]:1 = 1
017|   m = (m:45 + n:15):60
018|  end
012|  loop
013|   if (m:60 > max:100):false
014|   end # if
016|   mark[m:60]:1 = 1
017|   m = (m:60 + n:15):75
018|  end
012|  loop
013|   if (m:75 > max:100):false
014|   end # if
016|   mark[m:75]:1 = 1
017|   m = (m:75 + n:15):90
018|  end
012|  loop
013|   if (m:90 > max:100):false
014|   end # if
016|   mark[m:90]:1 = 1
017|   m = (m:90 + n:15):105
018|  end
012|  loop
013|   if (m:105 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:15 + 1):16
020| end
010| while (n:16 < max:100):true
011|  m = (2 * n:16):32
012|  loop
013|   if (m:32 > max:100):false
014|   end # if
016|   mark[m:32]:1 = 1
017|   m = (m:32 + n:16):48
018|  end
012|  loop
013|   if (m:48 > max:100):false
014|   end # if
016|   mark[m:48]:1 = 1
017|   m = (m:48 + n:16):64
018|  end
012|  loop
013|   if (m:64 > max:100):false
014|   end # if
016|   mark[m:64]:1 = 1
017|   m = (m:64 + n:16):80
018|  end
012|  loop
013|   if (m:80 > max:100):false
014|   end # if
016|   mark[m:80]:1 = 1
017|   m = (m:80 + n:16):96
018|  end
012|  loop
013|   if (m:96 > max:100):false
014|   end # if
016|   mark[m:96]:1 = 1
017|   m = (m:96 + n:16):112
018|  end
012|  loop
013|   if (m:112 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:16 + 1):17
020| end
010| while (n:17 < max:100):true
011|  m = (2 * n:17):34
012|  loop
013|   if (m:34 > max:100):false
014|   end # if
016|   mark[m:34]:1 = 1
017|   m = (m:34 + n:17):51
018|  end
012|  loop
013|   if (m:51 > max:100):false
014|   end # if
016|   mark[m:51]:1 = 1
017|   m = (m:51 + n:17):68
018|  end
012|  loop
013|   if (m:68 > max:100):false
014|   end # if
016|   mark[m:68]:1 = 1
017|   m = (m:68 + n:17):85
018|  end
012|  loop
013|   if (m:85 > max:100):false
014|   end # if
016|   mark[m:85]:1 = 1
017|   m = (m:85 + n:17):102
018|  end
012|  loop
013|   if (m:102 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:17 + 1):18
020| end
010| while (n:18 < max:100):true
011|  m = (2 * n:18):36
012|  loop
013|   if (m:36 > max:100):false
014|   end # if
016|   mark[m:36]:1 = 1
017|   m = (m:36 + n:18):54
018|  end
012|  loop
013|   if (m:54 > max:100):false
014|   end # if
016|   mark[m:54]:1 = 1
017|   m = (m:54 + n:18):72
018|  end
012|  loop
013|   if (m:72 > max:100):false
014|   end # if
016|   mark[m:72]:1 = 1
017|   m = (m:72 + n:18):90
018|  end
012|  loop
013|   if (m:90 > max:100):false
014|   end # if
016|   mark[m:90]:1 = 1
017|   m = (m:90 + n:18):108
018|  end
012|  loop
013|   if (m:108 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:18 + 1):19
020| end
010| while (n:19 < max:100):true
011|  m = (2 * n:19):38
012|  loop
013|   if (m:38 > max:100):false
014|   end # if
016|   mark[m:38]:1 = 1
017|   m = (m:38 + n:19):57
018|  end
012|  loop
013|   if (m:57 > max:100):false
014|   end # if
016|   mark[m:57]:1 = 1
017|   m = (m:57 + n:19):76
018|  end
012|  loop
013|   if (m:76 > max:100):false
014|   end # if
016|   mark[m:76]:1 = 1
017|   m = (m:76 + n:19):95
018|  end
012|  loop
013|   if (m:95 > max:100):false
014|   end # if
016|   mark[m:95]:1 = 1
017|   m = (m:95 + n:19):114
018|  end
012|  loop
013|   if (m:114 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:19 + 1):20
020| end
010| while (n:20 < max:100):true
011|  m = (2 * n:20):40
012|  loop
013|   if (m:40 > max:100):false
014|   end # if
016|   mark[m:40]:1 = 1
017|   m = (m:40 + n:20):60
018|  end
012|  loop
013|   if (m:60 > max:100):false
014|   end # if
016|   mark[m:60]:1 = 1
017|   m = (m:60 + n:20):80
018|  end
012|  loop
013|   if (m:80 > max:100):false
014|   end # if
016|   mark[m:80]:1 = 1
017|   m = (m:80 + n:20):100
018|  end
012|  loop
013|   if (m:100 > max:100):false
014|   end # if
016|   mark[m:100]:1 = 1
017|   m = (m:100 + n:20):120
018|  end
012|  loop
013|   if (m:120 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:20 + 1):21
020| end
010| while (n:21 < max:100):true
011|  m = (2 * n:21):42
012|  loop
013|   if (m:42 > max:100):false
014|   end # if
016|   mark[m:42]:1 = 1
017|   m = (m:42 + n:21):63
018|  end
012|  loop
013|   if (m:63 > max:100):false
014|   end # if
016|   mark[m:63]:1 = 1
017|   m = (m:63 + n:21):84
018|  end
012|  loop
013|   if (m:84 > max:100):false
014|   end # if
016|   mark[m:84]:1 = 1
017|   m = (m:84 + n:21):105
018|  end
012|  loop
013|   if (m:105 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:21 + 1):22
020| end
010| while (n:22 < max:100):true
011|  m = (2 * n:22):44
012|  loop
013|   if (m:44 > max:100):false
014|   end # if
016|   mark[m:44]:1 = 1
017|   m = (m:44 + n:22):66
018|  end
012|  loop
013|   if (m:66 > max:100):false
014|   end # if
016|   mark[m:66]:1 = 1
017|   m = (m:66 + n:22):88
018|  end
012|  loop
013|   if (m:88 > max:100):false
014|   end # if
016|   mark[m:88]:1 = 1
017|   m = (m:88 + n:22):110
018|  end
012|  loop
013|   if (m:110 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:22 + 1):23
020| end
010| while (n:23 < max:100):true
011|  m = (2 * n:23):46
012|  loop
013|   if (m:46 > max:100):false
014|   end # if
016|   mark[m:46]:1 = 1
017|   m = (m:46 + n:23):69
018|  end
012|  loop
013|   if (m:69 > max:100):false
014|   end # if
016|   mark[m:69]:1 = 1
017|   m = (m:69 + n:23):92
018|  end
012|  loop
013|   if (m:92 > max:100):false
014|   end # if
016|   mark[m:92]:1 = 1
017|   m = (m:92 + n:23):115
018|  end
012|  loop
013|   if (m:115 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:23 + 1):24
020| end
010| while (n:24 < max:100):true
011|  m = (2 * n:24):48
012|  loop
013|   if (m:48 > max:100):false
014|   end # if
016|   mark[m:48]:1 = 1
017|   m = (m:48 + n:24):72
018|  end
012|  loop
013|   if (m:72 > max:100):false
014|   end # if
016|   mark[m:72]:1 = 1
017|   m = (m:72 + n:24):96
018|  end
012|  loop
013|   if (m:96 > max:100):false
014|   end # if
016|   mark[m:96]:1 = 1
017|   m = (m:96 + n:24):120
018|  end
012|  loop
013|   if (m:120 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:24 + 1):25
020| end
010| while (n:25 < max:100):true
011|  m = (2 * n:25):50
012|  loop
013|   if (m:50 > max:100):false
014|   end # if
016|   mark[m:50]:1 = 1
017|   m = (m:50 + n:25):75
018|  end
012|  loop
013|   if (m:75 > max:100):false
014|   end # if
016|   mark[m:75]:1 = 1
017|   m = (m:75 + n:25):100
018|  end
012|  loop
013|   if (m:100 > max:100):false
014|   end # if
016|   mark[m:100]:1 = 1
017|   m = (m:100 + n:25):125
018|  end
012|  loop
013|   if (m:125 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:25 + 1):26
020| end
010| while (n:26 < max:100):true
011|  m = (2 * n:26):52
012|  loop
013|   if (m:52 > max:100):false
014|   end # if
016|   mark[m:52]:1 = 1
017|   m = (m:52 + n:26):78
018|  end
012|  loop
013|   if (m:78 > max:100):false
014|   end # if
016|   mark[m:78]:1 = 1
017|   m = (m:78 + n:26):104
018|  end
012|  loop
013|   if (m:104 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:26 + 1):27
020| end
010| while (n:27 < max:100):true
011|  m = (2 * n:27):54
012|  loop
013|   if (m:54 > max:100):false
014|   end # if
016|   mark[m:54]:1 = 1
017|   m = (m:54 + n:27):81
018|  end
012|  loop
013|   if (m:81 > max:100):false
014|   end # if
016|   mark[m:81]:1 = 1
017|   m = (m:81 + n:27):108
018|  end
012|  loop
013|   if (m:108 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:27 + 1):28
020| end
010| while (n:28 < max:100):true
011|  m = (2 * n:28):56
012|  loop
013|   if (m:56 > max:100):false
014|   end # if
016|   mark[m:56]:1 = 1
017|   m = (m:56 + n:28):84
018|  end
012|  loop
013|   if (m:84 > max:100):false
014|   end # if
016|   mark[m:84]:1 = 1
017|   m = (m:84 + n:28):112
018|  end
012|  loop
013|   if (m:112 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:28 + 1):29
020| end
010| while (n:29 < max:100):true
011|  m = (2 * n:29):58
012|  loop
013|   if (m:58 > max:100):false
014|   end # if
016|   mark[m:58]:1 = 1
017|   m = (m:58 + n:29):87
018|  end
012|  loop
013|   if (m:87 > max:100):false
014|   end # if
016|   mark[m:87]:1 = 1
017|   m = (m:87 + n:29):116
018|  end
012|  loop
013|   if (m:116 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:29 + 1):30
020| end
010| while (n:30 < max:100):true
011|  m = (2 * n:30):60
012|  loop
013|   if (m:60 > max:100):false
014|   end # if
016|   mark[m:60]:1 = 1
017|   m = (m:60 + n:30):90
018|  end
012|  loop
013|   if (m:90 > max:100):false
014|   end # if
016|   mark[m:90]:1 = 1
017|   m = (m:90 + n:30):120
018|  end
012|  loop
013|   if (m:120 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:30 + 1):31
020| end
010| while (n:31 < max:100):true
011|  m = (2 * n:31):62
012|  loop
013|   if (m:62 > max:100):false
014|   end # if
016|   mark[m:62]:1 = 1
017|   m = (m:62 + n:31):93
018|  end
012|  loop
013|   if (m:93 > max:100):false
014|   end # if
016|   mark[m:93]:1 = 1
017|   m = (m:93 + n:31):124
018|  end
012|  loop
013|   if (m:124 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:31 + 1):32
020| end
010| while (n:32 < max:100):true
011|  m = (2 * n:32):64
012|  loop
013|   if (m:64 > max:100):false
014|   end # if
016|   mark[m:64]:1 = 1
017|   m = (m:64 + n:32):96
018|  end
012|  loop
013|   if (m:96 > max:100):false
014|   end # if
016|   mark[m:96]:1 = 1
017|   m = (m:96 + n:32):128
018|  end
012|  loop
013|   if (m:128 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:32 + 1):33
020| end
010| while (n:33 < max:100):true
011|  m = (2 * n:33):66
012|  loop
013|   if (m:66 > max:100):false
014|   end # if
016|   mark[m:66]:1 = 1
017|   m = (m:66 + n:33):99
018|  end
012|  loop
013|   if (m:99 > max:100):false
014|   end # if
016|   mark[m:99]:1 = 1
017|   m = (m:99 + n:33):132
018|  end
012|  loop
013|   if (m:132 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:33 + 1):34
020| end
010| while (n:34 < max:100):true
011|  m = (2 * n:34):68
012|  loop
013|   if (m:68 > max:100):false
014|   end # if
016|   mark[m:68]:1 = 1
017|   m = (m:68 + n:34):102
018|  end
012|  loop
013|   if (m:102 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:34 + 1):35
020| end
010| while (n:35 < max:100):true
011|  m = (2 * n:35):70
012|  loop
013|   if (m:70 > max:100):false
014|   end # if
016|   mark[m:70]:1 = 1
017|   m = (m:70 + n:35):105
018|  end
012|  loop
013|   if (m:105 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:35 + 1):36
020| end
010| while (n:36 < max:100):true
011|  m = (2 * n:36):72
012|  loop
013|   if (m:72 > max:100):false
014|   end # if
016|   mark[m:72]:1 = 1
017|   m = (m:72 + n:36):108
018|  end
012|  loop
013|   if (m:108 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:36 + 1):37
020| end
010| while (n:37 < max:100):true
011|  m = (2 * n:37):74
012|  loop
013|   if (m:74 > max:100):false
014|   end # if
016|   mark[m:74]:1 = 1
017|   m = (m:74 + n:37):111
018|  end
012|  loop
013|   if (m:111 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:37 + 1):38
020| end
010| while (n:38 < max:100):true
011|  m = (2 * n:38):76
012|  loop
013|   if (m:76 > max:100):false
014|   end # if
016|   mark[m:76]:1 = 1
017|   m = (m:76 + n:38):114
018|  end
012|  loop
013|   if (m:114 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:38 + 1):39
020| end
010| while (n:39 < max:100):true
011|  m = (2 * n:39):78
012|  loop
013|   if (m:78 > max:100):false
014|   end # if
016|   mark[m:78]:1 = 1
017|   m = (m:78 + n:39):117
018|  end
012|  loop
013|   if (m:117 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:39 + 1):40
020| end
010| while (n:40 < max:100):true
011|  m = (2 * n:40):80
012|  loop
013|   if (m:80 > max:100):false
014|   end # if
016|   mark[m:80]:1 = 1
017|   m = (m:80 + n:40):120
018|  end
012|  loop
013|   if (m:120 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:40 + 1):41
020| end
010| while (n:41 < max:100):true
011|  m = (2 * n:41):82
012|  loop
013|   if (m:82 > max:100):false
014|   end # if
016|   mark[m:82]:1 = 1
017|   m = (m:82 + n:41):123
018|  end
012|  loop
013|   if (m:123 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:41 + 1):42
020| end
010| while (n:42 < max:100):true
011|  m = (2 * n:42):84
012|  loop
013|   if (m:84 > max:100):false
014|   end # if
016|   mark[m:84]:1 = 1
017|   m = (m:84 + n:42):126
018|  end
012|  loop
013|   if (m:126 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:42 + 1):43
020| end
010| while (n:43 < max:100):true
011|  m = (2 * n:43):86
012|  loop
013|   if (m:86 > max:100):false
014|   end # if
016|   mark[m:86]:1 = 1
017|   m = (m:86 + n:43):129
018|  end
012|  loop
013|   if (m:129 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:43 + 1):44
020| end
010| while (n:44 < max:100):true
011|  m = (2 * n:44):88
012|  loop
013|   if (m:88 > max:100):false
014|   end # if
016|   mark[m:88]:1 = 1
017|   m = (m:88 + n:44):132
018|  end
012|  loop
013|   if (m:132 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:44 + 1):45
020| end
010| while (n:45 < max:100):true
011|  m = (2 * n:45):90
012|  loop
013|   if (m:90 > max:100):false
014|   end # if
016|   mark[m:90]:1 = 1
017|   m = (m:90 + n:45):135
018|  end
012|  loop
013|   if (m:135 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:45 + 1):46
020| end
010| while (n:46 < max:100):true
011|  m = (2 * n:46):92
012|  loop
013|   if (m:92 > max:100):false
014|   end # if
016|   mark[m:92]:1 = 1
017|   m = (m:92 + n:46):138
018|  end
012|  loop
013|   if (m:138 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:46 + 1):47
020| end
010| while (n:47 < max:100):true
011|  m = (2 * n:47):94
012|  loop
013|   if (m:94 > max:100):false
014|   end # if
016|   mark[m:94]:1 = 1
017|   m = (m:94 + n:47):141
018|  end
012|  loop
013|   if (m:141 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:47 + 1):48
020| end
010| while (n:48 < max:100):true
011|  m = (2 * n:48):96
012|  loop
013|   if (m:96 > max:100):false
014|   end # if
016|   mark[m:96]:1 = 1
017|   m = (m:96 + n:48):144
018|  end
012|  loop
013|   if (m:144 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:48 + 1):49
020| end
010| while (n:49 < max:100):true
011|  m = (2 * n:49):98
012|  loop
013|   if (m:98 > max:100):false
014|   end # if
016|   mark[m:98]:1 = 1
017|   m = (m:98 + n:49):147
018|  end
012|  loop
013|   if (m:147 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:49 + 1):50
020| end
010| while (n:50 < max:100):true
011|  m = (2 * n:50):100
012|  loop
013|   if (m:100 > max:100):false
014|   end # if
016|   mark[m:100]:1 = 1
017|   m = (m:100 + n:50):150
018|  end
012|  loop
013|   if (m:150 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:50 + 1):51
020| end
010| while (n:51 < max:100):true
011|  m = (2 * n:51):102
012|  loop
013|   if (m:102 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:51 + 1):52
020| end
010| while (n:52 < max:100):true
011|  m = (2 * n:52):104
012|  loop
013|   if (m:104 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:52 + 1):53
020| end
010| while (n:53 < max:100):true
011|  m = (2 * n:53):106
012|  loop
013|   if (m:106 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:53 + 1):54
020| end
010| while (n:54 < max:100):true
011|  m = (2 * n:54):108
012|  loop
013|   if (m:108 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:54 + 1):55
020| end
010| while (n:55 < max:100):true
011|  m = (2 * n:55):110
012|  loop
013|   if (m:110 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:55 + 1):56
020| end
010| while (n:56 < max:100):true
011|  m = (2 * n:56):112
012|  loop
013|   if (m:112 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:56 + 1):57
020| end
010| while (n:57 < max:100):true
011|  m = (2 * n:57):114
012|  loop
013|   if (m:114 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:57 + 1):58
020| end
010| while (n:58 < max:100):true
011|  m = (2 * n:58):116
012|  loop
013|   if (m:116 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:58 + 1):59
020| end
010| while (n:59 < max:100):true
011|  m = (2 * n:59):118
012|  loop
013|   if (m:118 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:59 + 1):60
020| end
010| while (n:60 < max:100):true
011|  m = (2 * n:60):120
012|  loop
013|   if (m:120 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:60 + 1):61
020| end
010| while (n:61 < max:100):true
011|  m = (2 * n:61):122
012|  loop
013|   if (m:122 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:61 + 1):62
020| end
010| while (n:62 < max:100):true
011|  m = (2 * n:62):124
012|  loop
013|   if (m:124 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:62 + 1):63
020| end
010| while (n:63 < max:100):true
011|  m = (2 * n:63):126
012|  loop
013|   if (m:126 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:63 + 1):64
020| end
010| while (n:64 < max:100):true
011|  m = (2 * n:64):128
012|  loop
013|   if (m:128 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:64 + 1):65
020| end
010| while (n:65 < max:100):true
011|  m = (2 * n:65):130
012|  loop
013|   if (m:130 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:65 + 1):66
020| end
010| while (n:66 < max:100):true
011|  m = (2 * n:66):132
012|  loop
013|   if (m:132 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:66 + 1):67
020| end
010| while (n:67 < max:100):true
011|  m = (2 * n:67):134
012|  loop
013|   if (m:134 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:67 + 1):68
020| end
010| while (n:68 < max:100):true
011|  m = (2 * n:68):136
012|  loop
013|   if (m:136 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:68 + 1):69
020| end
010| while (n:69 < max:100):true
011|  m = (2 * n:69):138
012|  loop
013|   if (m:138 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:69 + 1):70
020| end
010| while (n:70 < max:100):true
011|  m = (2 * n:70):140
012|  loop
013|   if (m:140 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:70 + 1):71
020| end
010| while (n:71 < max:100):true
011|  m = (2 * n:71):142
012|  loop
013|   if (m:142 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:71 + 1):72
020| end
010| while (n:72 < max:100):true
011|  m = (2 * n:72):144
012|  loop
013|   if (m:144 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:72 + 1):73
020| end
010| while (n:73 < max:100):true
011|  m = (2 * n:73):146
012|  loop
013|   if (m:146 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:73 + 1):74
020| end
010| while (n:74 < max:100):true
011|  m = (2 * n:74):148
012|  loop
013|   if (m:148 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:74 + 1):75
020| end
010| while (n:75 < max:100):true
011|  m = (2 * n:75):150
012|  loop
013|   if (m:150 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:75 + 1):76
020| end
010| while (n:76 < max:100):true
011|  m = (2 * n:76):152
012|  loop
013|   if (m:152 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:76 + 1):77
020| end
010| while (n:77 < max:100):true
011|  m = (2 * n:77):154
012|  loop
013|   if (m:154 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:77 + 1):78
020| end
010| while (n:78 < max:100):true
011|  m = (2 * n:78):156
012|  loop
013|   if (m:156 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:78 + 1):79
020| end
010| while (n:79 < max:100):true
011|  m = (2 * n:79):158
012|  loop
013|   if (m:158 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:79 + 1):80
020| end
010| while (n:80 < max:100):true
011|  m = (2 * n:80):160
012|  loop
013|   if (m:160 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:80 + 1):81
020| end
010| while (n:81 < max:100):true
011|  m = (2 * n:81):162
012|  loop
013|   if (m:162 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:81 + 1):82
020| end
010| while (n:82 < max:100):true
011|  m = (2 * n:82):164
012|  loop
013|   if (m:164 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:82 + 1):83
020| end
010| while (n:83 < max:100):true
011|  m = (2 * n:83):166
012|  loop
013|   if (m:166 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:83 + 1):84
020| end
010| while (n:84 < max:100):true
011|  m = (2 * n:84):168
012|  loop
013|   if (m:168 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:84 + 1):85
020| end
010| while (n:85 < max:100):true
011|  m = (2 * n:85):170
012|  loop
013|   if (m:170 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:85 + 1):86
020| end
010| while (n:86 < max:100):true
011|  m = (2 * n:86):172
012|  loop
013|   if (m:172 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:86 + 1):87
020| end
010| while (n:87 < max:100):true
011|  m = (2 * n:87):174
012|  loop
013|   if (m:174 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:87 + 1):88
020| end
010| while (n:88 < max:100):true
011|  m = (2 * n:88):176
012|  loop
013|   if (m:176 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:88 + 1):89
020| end
010| while (n:89 < max:100):true
011|  m = (2 * n:89):178
012|  loop
013|   if (m:178 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:89 + 1):90
020| end
010| while (n:90 < max:100):true
011|  m = (2 * n:90):180
012|  loop
013|   if (m:180 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:90 + 1):91
020| end
010| while (n:91 < max:100):true
011|  m = (2 * n:91):182
012|  loop
013|   if (m:182 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:91 + 1):92
020| end
010| while (n:92 < max:100):true
011|  m = (2 * n:92):184
012|  loop
013|   if (m:184 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:92 + 1):93
020| end
010| while (n:93 < max:100):true
011|  m = (2 * n:93):186
012|  loop
013|   if (m:186 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:93 + 1):94
020| end
010| while (n:94 < max:100):true
011|  m = (2 * n:94):188
012|  loop
013|   if (m:188 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:94 + 1):95
020| end
010| while (n:95 < max:100):true
011|  m = (2 * n:95):190
012|  loop
013|   if (m:190 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:95 + 1):96
020| end
010| while (n:96 < max:100):true
011|  m = (2 * n:96):192
012|  loop
013|   if (m:192 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:96 + 1):97
020| end
010| while (n:97 < max:100):true
011|  m = (2 * n:97):194
012|  loop
013|   if (m:194 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:97 + 1):98
020| end
010| while (n:98 < max:100):true
011|  m = (2 * n:98):196
012|  loop
013|   if (m:196 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:98 + 1):99
020| end
010| while (n:99 < max:100):true
011|  m = (2 * n:99):198
012|  loop
013|   if (m:198 > max:100):true
014|    break
014|   end # if
018|  end # finish loop
019|  n = (n:99 + 1):100
020| end
010| while (n:100 < max:100):false
020| end # finish loop
022| n = 2
023| while (n:2 < max:100):true
024|  if (mark[n:2]:Null != 1):true
025|   push( ~array ret:[  ] ~top n:2 )...
025|  end # if
027|  n = (n:2 + 1):3
028| end
023| while (n:3 < max:100):true
024|  if (mark[n:3]:Null != 1):true
025|   push( ~array ret:[ -> 2 ] ~top n:3 )...
025|  end # if
027|  n = (n:3 + 1):4
028| end
023| while (n:4 < max:100):true
024|  if (mark[n:4]:1 != 1):false
025|  end # if
027|  n = (n:4 + 1):5
028| end
023| while (n:5 < max:100):true
024|  if (mark[n:5]:Null != 1):true
025|   push( ~array ret:[ -> 2, -> 3 ] ~top n:5 )...
025|  end # if
027|  n = (n:5 + 1):6
028| end
023| while (n:6 < max:100):true
024|  if (mark[n:6]:1 != 1):false
025|  end # if
027|  n = (n:6 + 1):7
028| end
023| while (n:7 < max:100):true
024|  if (mark[n:7]:Null != 1):true
025|   push( ~array ret:[ -> 2, -> 3, -> 5 ] ~top n:7 )...
025|  end # if
027|  n = (n:7 + 1):8
028| end
023| while (n:8 < max:100):true
024|  if (mark[n:8]:1 != 1):false
025|  end # if
027|  n = (n:8 + 1):9
028| end
023| while (n:9 < max:100):true
024|  if (mark[n:9]:1 != 1):false
025|  end # if
027|  n = (n:9 + 1):10
028| end
023| while (n:10 < max:100):true
024|  if (mark[n:10]:1 != 1):false
025|  end # if
027|  n = (n:10 + 1):11
028| end
023| while (n:11 < max:100):true
024|  if (mark[n:11]:Null != 1):true
025|   push( ~array ret:[ -> 2, -> 3, -> 5, -> 7 ] ~top n:11 )...
025|  end # if
027|  n = (n:11 + 1):12
028| end
023| while (n:12 < max:100):true
024|  if (mark[n:12]:1 != 1):false
025|  end # if
027|  n = (n:12 + 1):13
028| end
023| while (n:13 < max:100):true
024|  if (mark[n:13]:Null != 1):true
025|   push( ~array ret:[ -> 2, -> 3, -> 5, -> 7, -> 11 ] ~top n:13 )...
025|  end # if
027|  n = (n:13 + 1):14
028| end
023| while (n:14 < max:100):true
024|  if (mark[n:14]:1 != 1):false
025|  end # if
027|  n = (n:14 + 1):15
028| end
023| while (n:15 < max:100):true
024|  if (mark[n:15]:1 != 1):false
025|  end # if
027|  n = (n:15 + 1):16
028| end
023| while (n:16 < max:100):true
024|  if (mark[n:16]:1 != 1):false
025|  end # if
027|  n = (n:16 + 1):17
028| end
023| while (n:17 < max:100):true
024|  if (mark[n:17]:Null != 1):true
025|   push( ~array ret:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13 ] ~top n:17 )...
025|  end # if
027|  n = (n:17 + 1):18
028| end
023| while (n:18 < max:100):true
024|  if (mark[n:18]:1 != 1):false
025|  end # if
027|  n = (n:18 + 1):19
028| end
023| while (n:19 < max:100):true
024|  if (mark[n:19]:Null != 1):true
025|   push( ~array ret:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17 ] ~top n:19 )...
025|  end # if
027|  n = (n:19 + 1):20
028| end
023| while (n:20 < max:100):true
024|  if (mark[n:20]:1 != 1):false
025|  end # if
027|  n = (n:20 + 1):21
028| end
023| while (n:21 < max:100):true
024|  if (mark[n:21]:1 != 1):false
025|  end # if
027|  n = (n:21 + 1):22
028| end
023| while (n:22 < max:100):true
024|  if (mark[n:22]:1 != 1):false
025|  end # if
027|  n = (n:22 + 1):23
028| end
023| while (n:23 < max:100):true
024|  if (mark[n:23]:Null != 1):true
025|   push( ~array ret:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19 ] ~top n:23 )...
025|  end # if
027|  n = (n:23 + 1):24
028| end
023| while (n:24 < max:100):true
024|  if (mark[n:24]:1 != 1):false
025|  end # if
027|  n = (n:24 + 1):25
028| end
023| while (n:25 < max:100):true
024|  if (mark[n:25]:1 != 1):false
025|  end # if
027|  n = (n:25 + 1):26
028| end
023| while (n:26 < max:100):true
024|  if (mark[n:26]:1 != 1):false
025|  end # if
027|  n = (n:26 + 1):27
028| end
023| while (n:27 < max:100):true
024|  if (mark[n:27]:1 != 1):false
025|  end # if
027|  n = (n:27 + 1):28
028| end
023| while (n:28 < max:100):true
024|  if (mark[n:28]:1 != 1):false
025|  end # if
027|  n = (n:28 + 1):29
028| end
023| while (n:29 < max:100):true
024|  if (mark[n:29]:Null != 1):true
025|   push( ~array ret:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23 ] ~top n:29 )...
025|  end # if
027|  n = (n:29 + 1):30
028| end
023| while (n:30 < max:100):true
024|  if (mark[n:30]:1 != 1):false
025|  end # if
027|  n = (n:30 + 1):31
028| end
023| while (n:31 < max:100):true
024|  if (mark[n:31]:Null != 1):true
025|   push( ~array ret:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29 ] ~top n:31 )...
025|  end # if
027|  n = (n:31 + 1):32
028| end
023| while (n:32 < max:100):true
024|  if (mark[n:32]:1 != 1):false
025|  end # if
027|  n = (n:32 + 1):33
028| end
023| while (n:33 < max:100):true
024|  if (mark[n:33]:1 != 1):false
025|  end # if
027|  n = (n:33 + 1):34
028| end
023| while (n:34 < max:100):true
024|  if (mark[n:34]:1 != 1):false
025|  end # if
027|  n = (n:34 + 1):35
028| end
023| while (n:35 < max:100):true
024|  if (mark[n:35]:1 != 1):false
025|  end # if
027|  n = (n:35 + 1):36
028| end
023| while (n:36 < max:100):true
024|  if (mark[n:36]:1 != 1):false
025|  end # if
027|  n = (n:36 + 1):37
028| end
023| while (n:37 < max:100):true
024|  if (mark[n:37]:Null != 1):true
025|   push( ~array ret:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31 ] ~top n:37 )...
025|  end # if
027|  n = (n:37 + 1):38
028| end
023| while (n:38 < max:100):true
024|  if (mark[n:38]:1 != 1):false
025|  end # if
027|  n = (n:38 + 1):39
028| end
023| while (n:39 < max:100):true
024|  if (mark[n:39]:1 != 1):false
025|  end # if
027|  n = (n:39 + 1):40
028| end
023| while (n:40 < max:100):true
024|  if (mark[n:40]:1 != 1):false
025|  end # if
027|  n = (n:40 + 1):41
028| end
023| while (n:41 < max:100):true
024|  if (mark[n:41]:Null != 1):true
025|   push( ~array ret:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37 ] ~top n:41 )...
025|  end # if
027|  n = (n:41 + 1):42
028| end
023| while (n:42 < max:100):true
024|  if (mark[n:42]:1 != 1):false
025|  end # if
027|  n = (n:42 + 1):43
028| end
023| while (n:43 < max:100):true
024|  if (mark[n:43]:Null != 1):true
025|   push( ~array ret:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41 ] ~top n:43 )...
025|  end # if
027|  n = (n:43 + 1):44
028| end
023| while (n:44 < max:100):true
024|  if (mark[n:44]:1 != 1):false
025|  end # if
027|  n = (n:44 + 1):45
028| end
023| while (n:45 < max:100):true
024|  if (mark[n:45]:1 != 1):false
025|  end # if
027|  n = (n:45 + 1):46
028| end
023| while (n:46 < max:100):true
024|  if (mark[n:46]:1 != 1):false
025|  end # if
027|  n = (n:46 + 1):47
028| end
023| while (n:47 < max:100):true
024|  if (mark[n:47]:Null != 1):true
025|   push( ~array ret:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43 ] ~top n:47 )...
025|  end # if
027|  n = (n:47 + 1):48
028| end
023| while (n:48 < max:100):true
024|  if (mark[n:48]:1 != 1):false
025|  end # if
027|  n = (n:48 + 1):49
028| end
023| while (n:49 < max:100):true
024|  if (mark[n:49]:1 != 1):false
025|  end # if
027|  n = (n:49 + 1):50
028| end
023| while (n:50 < max:100):true
024|  if (mark[n:50]:1 != 1):false
025|  end # if
027|  n = (n:50 + 1):51
028| end
023| while (n:51 < max:100):true
024|  if (mark[n:51]:1 != 1):false
025|  end # if
027|  n = (n:51 + 1):52
028| end
023| while (n:52 < max:100):true
024|  if (mark[n:52]:1 != 1):false
025|  end # if
027|  n = (n:52 + 1):53
028| end
023| while (n:53 < max:100):true
024|  if (mark[n:53]:Null != 1):true
025|   push( ~array ret:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47 ] ~top n:53 )...
025|  end # if
027|  n = (n:53 + 1):54
028| end
023| while (n:54 < max:100):true
024|  if (mark[n:54]:1 != 1):false
025|  end # if
027|  n = (n:54 + 1):55
028| end
023| while (n:55 < max:100):true
024|  if (mark[n:55]:1 != 1):false
025|  end # if
027|  n = (n:55 + 1):56
028| end
023| while (n:56 < max:100):true
024|  if (mark[n:56]:1 != 1):false
025|  end # if
027|  n = (n:56 + 1):57
028| end
023| while (n:57 < max:100):true
024|  if (mark[n:57]:1 != 1):false
025|  end # if
027|  n = (n:57 + 1):58
028| end
023| while (n:58 < max:100):true
024|  if (mark[n:58]:1 != 1):false
025|  end # if
027|  n = (n:58 + 1):59
028| end
023| while (n:59 < max:100):true
024|  if (mark[n:59]:Null != 1):true
025|   push( ~array ret:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53 ] ~top n:59 )...
025|  end # if
027|  n = (n:59 + 1):60
028| end
023| while (n:60 < max:100):true
024|  if (mark[n:60]:1 != 1):false
025|  end # if
027|  n = (n:60 + 1):61
028| end
023| while (n:61 < max:100):true
024|  if (mark[n:61]:Null != 1):true
025|   push( ~array ret:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59 ] ~top n:61 )...
025|  end # if
027|  n = (n:61 + 1):62
028| end
023| while (n:62 < max:100):true
024|  if (mark[n:62]:1 != 1):false
025|  end # if
027|  n = (n:62 + 1):63
028| end
023| while (n:63 < max:100):true
024|  if (mark[n:63]:1 != 1):false
025|  end # if
027|  n = (n:63 + 1):64
028| end
023| while (n:64 < max:100):true
024|  if (mark[n:64]:1 != 1):false
025|  end # if
027|  n = (n:64 + 1):65
028| end
023| while (n:65 < max:100):true
024|  if (mark[n:65]:1 != 1):false
025|  end # if
027|  n = (n:65 + 1):66
028| end
023| while (n:66 < max:100):true
024|  if (mark[n:66]:1 != 1):false
025|  end # if
027|  n = (n:66 + 1):67
028| end
023| while (n:67 < max:100):true
024|  if (mark[n:67]:Null != 1):true
025|   push( ~array ret:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59, -> 61 ] ~top n:67 )...
025|  end # if
027|  n = (n:67 + 1):68
028| end
023| while (n:68 < max:100):true
024|  if (mark[n:68]:1 != 1):false
025|  end # if
027|  n = (n:68 + 1):69
028| end
023| while (n:69 < max:100):true
024|  if (mark[n:69]:1 != 1):false
025|  end # if
027|  n = (n:69 + 1):70
028| end
023| while (n:70 < max:100):true
024|  if (mark[n:70]:1 != 1):false
025|  end # if
027|  n = (n:70 + 1):71
028| end
023| while (n:71 < max:100):true
024|  if (mark[n:71]:Null != 1):true
025|   push( ~array ret:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59, -> 61, -> 67 ] ~top n:71 )...
025|  end # if
027|  n = (n:71 + 1):72
028| end
023| while (n:72 < max:100):true
024|  if (mark[n:72]:1 != 1):false
025|  end # if
027|  n = (n:72 + 1):73
028| end
023| while (n:73 < max:100):true
024|  if (mark[n:73]:Null != 1):true
025|   push( ~array ret:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59, -> 61, -> 67, -> 71 ] ~top n:73 )...
025|  end # if
027|  n = (n:73 + 1):74
028| end
023| while (n:74 < max:100):true
024|  if (mark[n:74]:1 != 1):false
025|  end # if
027|  n = (n:74 + 1):75
028| end
023| while (n:75 < max:100):true
024|  if (mark[n:75]:1 != 1):false
025|  end # if
027|  n = (n:75 + 1):76
028| end
023| while (n:76 < max:100):true
024|  if (mark[n:76]:1 != 1):false
025|  end # if
027|  n = (n:76 + 1):77
028| end
023| while (n:77 < max:100):true
024|  if (mark[n:77]:1 != 1):false
025|  end # if
027|  n = (n:77 + 1):78
028| end
023| while (n:78 < max:100):true
024|  if (mark[n:78]:1 != 1):false
025|  end # if
027|  n = (n:78 + 1):79
028| end
023| while (n:79 < max:100):true
024|  if (mark[n:79]:Null != 1):true
025|   push( ~array ret:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59, -> 61, -> 67, -> 71, -> 73 ] ~top n:79 )...
025|  end # if
027|  n = (n:79 + 1):80
028| end
023| while (n:80 < max:100):true
024|  if (mark[n:80]:1 != 1):false
025|  end # if
027|  n = (n:80 + 1):81
028| end
023| while (n:81 < max:100):true
024|  if (mark[n:81]:1 != 1):false
025|  end # if
027|  n = (n:81 + 1):82
028| end
023| while (n:82 < max:100):true
024|  if (mark[n:82]:1 != 1):false
025|  end # if
027|  n = (n:82 + 1):83
028| end
023| while (n:83 < max:100):true
024|  if (mark[n:83]:Null != 1):true
025|   push( ~array ret:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59, -> 61, -> 67, -> 71, -> 73, -> 79 ] ~top n:83 )...
025|  end # if
027|  n = (n:83 + 1):84
028| end
023| while (n:84 < max:100):true
024|  if (mark[n:84]:1 != 1):false
025|  end # if
027|  n = (n:84 + 1):85
028| end
023| while (n:85 < max:100):true
024|  if (mark[n:85]:1 != 1):false
025|  end # if
027|  n = (n:85 + 1):86
028| end
023| while (n:86 < max:100):true
024|  if (mark[n:86]:1 != 1):false
025|  end # if
027|  n = (n:86 + 1):87
028| end
023| while (n:87 < max:100):true
024|  if (mark[n:87]:1 != 1):false
025|  end # if
027|  n = (n:87 + 1):88
028| end
023| while (n:88 < max:100):true
024|  if (mark[n:88]:1 != 1):false
025|  end # if
027|  n = (n:88 + 1):89
028| end
023| while (n:89 < max:100):true
024|  if (mark[n:89]:Null != 1):true
025|   push( ~array ret:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59, -> 61, -> 67, -> 71, -> 73, -> 79, -> 83 ] ~top n:89 )...
025|  end # if
027|  n = (n:89 + 1):90
028| end
023| while (n:90 < max:100):true
024|  if (mark[n:90]:1 != 1):false
025|  end # if
027|  n = (n:90 + 1):91
028| end
023| while (n:91 < max:100):true
024|  if (mark[n:91]:1 != 1):false
025|  end # if
027|  n = (n:91 + 1):92
028| end
023| while (n:92 < max:100):true
024|  if (mark[n:92]:1 != 1):false
025|  end # if
027|  n = (n:92 + 1):93
028| end
023| while (n:93 < max:100):true
024|  if (mark[n:93]:1 != 1):false
025|  end # if
027|  n = (n:93 + 1):94
028| end
023| while (n:94 < max:100):true
024|  if (mark[n:94]:1 != 1):false
025|  end # if
027|  n = (n:94 + 1):95
028| end
023| while (n:95 < max:100):true
024|  if (mark[n:95]:1 != 1):false
025|  end # if
027|  n = (n:95 + 1):96
028| end
023| while (n:96 < max:100):true
024|  if (mark[n:96]:1 != 1):false
025|  end # if
027|  n = (n:96 + 1):97
028| end
023| while (n:97 < max:100):true
024|  if (mark[n:97]:Null != 1):true
025|   push( ~array ret:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59, -> 61, -> 67, -> 71, -> 73, -> 79, -> 83, -> 89 ] ~top n:97 )...
025|  end # if
027|  n = (n:97 + 1):98
028| end
023| while (n:98 < max:100):true
024|  if (mark[n:98]:1 != 1):false
025|  end # if
027|  n = (n:98 + 1):99
028| end
023| while (n:99 < max:100):true
024|  if (mark[n:99]:1 != 1):false
025|  end # if
027|  n = (n:99 + 1):100
028| end
023| while (n:100 < max:100):false
028| end # finish loop
030| return ret:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59, -> 61, -> 67, -> 71, -> 73, -> 79, -> 83, -> 89, -> 97 ]
035|pr = primes( ~max 100 ):[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59, -> 61, -> 67, -> 71, -> 73, -> 79, -> 83, -> 89, -> 97 ]
038|i = 1
039|while (i:1 <= size( ~arg pr:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59, -> 61, -> 67, -> 71, -> 73, -> 79, -> 83, -> 89, -> 97 ] )...
039|while (i:1 <= size( ~arg pr:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59, -> 61, -> 67, -> 71, -> 73, -> 79, -> 83, -> 89, -> 97 ] ):25):true
041| println( ~msg 'prime number ' .. pr[i:1]:2 )...
043| i = (i:1 + 1):2
044|end
039|while (i:2 <= size( ~arg pr:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59, -> 61, -> 67, -> 71, -> 73, -> 79, -> 83, -> 89, -> 97 ] )...
039|while (i:2 <= size( ~arg pr:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59, -> 61, -> 67, -> 71, -> 73, -> 79, -> 83, -> 89, -> 97 ] ):25):true
041| println( ~msg 'prime number ' .. pr[i:2]:3 )...
043| i = (i:2 + 1):3
044|end
039|while (i:3 <= size( ~arg pr:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59, -> 61, -> 67, -> 71, -> 73, -> 79, -> 83, -> 89, -> 97 ] )...
039|while (i:3 <= size( ~arg pr:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59, -> 61, -> 67, -> 71, -> 73, -> 79, -> 83, -> 89, -> 97 ] ):25):true
041| println( ~msg 'prime number ' .. pr[i:3]:5 )...
043| i = (i:3 + 1):4
044|end
039|while (i:4 <= size( ~arg pr:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59, -> 61, -> 67, -> 71, -> 73, -> 79, -> 83, -> 89, -> 97 ] )...
039|while (i:4 <= size( ~arg pr:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59, -> 61, -> 67, -> 71, -> 73, -> 79, -> 83, -> 89, -> 97 ] ):25):true
041| println( ~msg 'prime number ' .. pr[i:4]:7 )...
043| i = (i:4 + 1):5
044|end
039|while (i:5 <= size( ~arg pr:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59, -> 61, -> 67, -> 71, -> 73, -> 79, -> 83, -> 89, -> 97 ] )...
039|while (i:5 <= size( ~arg pr:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59, -> 61, -> 67, -> 71, -> 73, -> 79, -> 83, -> 89, -> 97 ] ):25):true
041| println( ~msg 'prime number ' .. pr[i:5]:11 )...
043| i = (i:5 + 1):6
044|end
039|while (i:6 <= size( ~arg pr:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59, -> 61, -> 67, -> 71, -> 73, -> 79, -> 83, -> 89, -> 97 ] )...
039|while (i:6 <= size( ~arg pr:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59, -> 61, -> 67, -> 71, -> 73, -> 79, -> 83, -> 89, -> 97 ] ):25):true
041| println( ~msg 'prime number ' .. pr[i:6]:13 )...
043| i = (i:6 + 1):7
044|end
039|while (i:7 <= size( ~arg pr:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59, -> 61, -> 67, -> 71, -> 73, -> 79, -> 83, -> 89, -> 97 ] )...
039|while (i:7 <= size( ~arg pr:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59, -> 61, -> 67, -> 71, -> 73, -> 79, -> 83, -> 89, -> 97 ] ):25):true
041| println( ~msg 'prime number ' .. pr[i:7]:17 )...
043| i = (i:7 + 1):8
044|end
039|while (i:8 <= size( ~arg pr:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59, -> 61, -> 67, -> 71, -> 73, -> 79, -> 83, -> 89, -> 97 ] )...
039|while (i:8 <= size( ~arg pr:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59, -> 61, -> 67, -> 71, -> 73, -> 79, -> 83, -> 89, -> 97 ] ):25):true
041| println( ~msg 'prime number ' .. pr[i:8]:19 )...
043| i = (i:8 + 1):9
044|end
039|while (i:9 <= size( ~arg pr:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59, -> 61, -> 67, -> 71, -> 73, -> 79, -> 83, -> 89, -> 97 ] )...
039|while (i:9 <= size( ~arg pr:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59, -> 61, -> 67, -> 71, -> 73, -> 79, -> 83, -> 89, -> 97 ] ):25):true
041| println( ~msg 'prime number ' .. pr[i:9]:23 )...
043| i = (i:9 + 1):10
044|end
039|while (i:10 <= size( ~arg pr:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59, -> 61, -> 67, -> 71, -> 73, -> 79, -> 83, -> 89, -> 97 ] )...
039|while (i:10 <= size( ~arg pr:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59, -> 61, -> 67, -> 71, -> 73, -> 79, -> 83, -> 89, -> 97 ] ):25):true
041| println( ~msg 'prime number ' .. pr[i:10]:29 )...
043| i = (i:10 + 1):11
044|end
039|while (i:11 <= size( ~arg pr:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59, -> 61, -> 67, -> 71, -> 73, -> 79, -> 83, -> 89, -> 97 ] )...
039|while (i:11 <= size( ~arg pr:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59, -> 61, -> 67, -> 71, -> 73, -> 79, -> 83, -> 89, -> 97 ] ):25):true
041| println( ~msg 'prime number ' .. pr[i:11]:31 )...
043| i = (i:11 + 1):12
044|end
039|while (i:12 <= size( ~arg pr:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59, -> 61, -> 67, -> 71, -> 73, -> 79, -> 83, -> 89, -> 97 ] )...
039|while (i:12 <= size( ~arg pr:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59, -> 61, -> 67, -> 71, -> 73, -> 79, -> 83, -> 89, -> 97 ] ):25):true
041| println( ~msg 'prime number ' .. pr[i:12]:37 )...
043| i = (i:12 + 1):13
044|end
039|while (i:13 <= size( ~arg pr:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59, -> 61, -> 67, -> 71, -> 73, -> 79, -> 83, -> 89, -> 97 ] )...
039|while (i:13 <= size( ~arg pr:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59, -> 61, -> 67, -> 71, -> 73, -> 79, -> 83, -> 89, -> 97 ] ):25):true
041| println( ~msg 'prime number ' .. pr[i:13]:41 )...
043| i = (i:13 + 1):14
044|end
039|while (i:14 <= size( ~arg pr:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59, -> 61, -> 67, -> 71, -> 73, -> 79, -> 83, -> 89, -> 97 ] )...
039|while (i:14 <= size( ~arg pr:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59, -> 61, -> 67, -> 71, -> 73, -> 79, -> 83, -> 89, -> 97 ] ):25):true
041| println( ~msg 'prime number ' .. pr[i:14]:43 )...
043| i = (i:14 + 1):15
044|end
039|while (i:15 <= size( ~arg pr:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59, -> 61, -> 67, -> 71, -> 73, -> 79, -> 83, -> 89, -> 97 ] )...
039|while (i:15 <= size( ~arg pr:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59, -> 61, -> 67, -> 71, -> 73, -> 79, -> 83, -> 89, -> 97 ] ):25):true
041| println( ~msg 'prime number ' .. pr[i:15]:47 )...
043| i = (i:15 + 1):16
044|end
039|while (i:16 <= size( ~arg pr:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59, -> 61, -> 67, -> 71, -> 73, -> 79, -> 83, -> 89, -> 97 ] )...
039|while (i:16 <= size( ~arg pr:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59, -> 61, -> 67, -> 71, -> 73, -> 79, -> 83, -> 89, -> 97 ] ):25):true
041| println( ~msg 'prime number ' .. pr[i:16]:53 )...
043| i = (i:16 + 1):17
044|end
039|while (i:17 <= size( ~arg pr:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59, -> 61, -> 67, -> 71, -> 73, -> 79, -> 83, -> 89, -> 97 ] )...
039|while (i:17 <= size( ~arg pr:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59, -> 61, -> 67, -> 71, -> 73, -> 79, -> 83, -> 89, -> 97 ] ):25):true
041| println( ~msg 'prime number ' .. pr[i:17]:59 )...
043| i = (i:17 + 1):18
044|end
039|while (i:18 <= size( ~arg pr:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59, -> 61, -> 67, -> 71, -> 73, -> 79, -> 83, -> 89, -> 97 ] )...
039|while (i:18 <= size( ~arg pr:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59, -> 61, -> 67, -> 71, -> 73, -> 79, -> 83, -> 89, -> 97 ] ):25):true
041| println( ~msg 'prime number ' .. pr[i:18]:61 )...
043| i = (i:18 + 1):19
044|end
039|while (i:19 <= size( ~arg pr:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59, -> 61, -> 67, -> 71, -> 73, -> 79, -> 83, -> 89, -> 97 ] )...
039|while (i:19 <= size( ~arg pr:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59, -> 61, -> 67, -> 71, -> 73, -> 79, -> 83, -> 89, -> 97 ] ):25):true
041| println( ~msg 'prime number ' .. pr[i:19]:67 )...
043| i = (i:19 + 1):20
044|end
039|while (i:20 <= size( ~arg pr:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59, -> 61, -> 67, -> 71, -> 73, -> 79, -> 83, -> 89, -> 97 ] )...
039|while (i:20 <= size( ~arg pr:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59, -> 61, -> 67, -> 71, -> 73, -> 79, -> 83, -> 89, -> 97 ] ):25):true
041| println( ~msg 'prime number ' .. pr[i:20]:71 )...
043| i = (i:20 + 1):21
044|end
039|while (i:21 <= size( ~arg pr:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59, -> 61, -> 67, -> 71, -> 73, -> 79, -> 83, -> 89, -> 97 ] )...
039|while (i:21 <= size( ~arg pr:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59, -> 61, -> 67, -> 71, -> 73, -> 79, -> 83, -> 89, -> 97 ] ):25):true
041| println( ~msg 'prime number ' .. pr[i:21]:73 )...
043| i = (i:21 + 1):22
044|end
039|while (i:22 <= size( ~arg pr:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59, -> 61, -> 67, -> 71, -> 73, -> 79, -> 83, -> 89, -> 97 ] )...
039|while (i:22 <= size( ~arg pr:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59, -> 61, -> 67, -> 71, -> 73, -> 79, -> 83, -> 89, -> 97 ] ):25):true
041| println( ~msg 'prime number ' .. pr[i:22]:79 )...
043| i = (i:22 + 1):23
044|end
039|while (i:23 <= size( ~arg pr:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59, -> 61, -> 67, -> 71, -> 73, -> 79, -> 83, -> 89, -> 97 ] )...
039|while (i:23 <= size( ~arg pr:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59, -> 61, -> 67, -> 71, -> 73, -> 79, -> 83, -> 89, -> 97 ] ):25):true
041| println( ~msg 'prime number ' .. pr[i:23]:83 )...
043| i = (i:23 + 1):24
044|end
039|while (i:24 <= size( ~arg pr:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59, -> 61, -> 67, -> 71, -> 73, -> 79, -> 83, -> 89, -> 97 ] )...
039|while (i:24 <= size( ~arg pr:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59, -> 61, -> 67, -> 71, -> 73, -> 79, -> 83, -> 89, -> 97 ] ):25):true
041| println( ~msg 'prime number ' .. pr[i:24]:89 )...
043| i = (i:24 + 1):25
044|end
039|while (i:25 <= size( ~arg pr:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59, -> 61, -> 67, -> 71, -> 73, -> 79, -> 83, -> 89, -> 97 ] )...
039|while (i:25 <= size( ~arg pr:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59, -> 61, -> 67, -> 71, -> 73, -> 79, -> 83, -> 89, -> 97 ] ):25):true
041| println( ~msg 'prime number ' .. pr[i:25]:97 )...
043| i = (i:25 + 1):26
044|end
039|while (i:26 <= size( ~arg pr:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59, -> 61, -> 67, -> 71, -> 73, -> 79, -> 83, -> 89, -> 97 ] )...
039|while (i:26 <= size( ~arg pr:[ -> 2, -> 3, -> 5, -> 7, -> 11, -> 13, -> 17, -> 19, -> 23, -> 29, -> 31, -> 37, -> 41, -> 43, -> 47, -> 53, -> 59, -> 61, -> 67, -> 71, -> 73, -> 79, -> 83, -> 89, -> 97 ] ):25):false
044|end # finish loop