parse arg n
If n < 1 Then Do
    n = 1
End


Do While n > 0
    count = 0
    Do j = 0 To 8192
        flags.j = 1
    End
    Do i = 2 To 8192
        If flags.i <> 0 Then Do
            Do k = i+i To 8192 By i
                flags.k = 0
            End
            count = count + 1
        End
    End
    n = n - 1
End

say "Count: "count