fast sieve does not work yet

FUNC MAIN()
{
    INT n = 100
    ARRAY BOOL prime = [101]

    BOOL trueVal = TRUE
    BOOL falseVal = FALSE

    INT ZERO = 0
    INT ONE = 1
    INT TWO = 2
    INT THREE = 3
    INT SIX = 6

    prime[ZERO] = falseVal
    prime[ONE] = falseVal

    INT i = 5
    INT j = 0
    BOOL temp = FALSE

    INT t = 2
    INT aaa = 1
    INT v = 1

    WHILE (i LE n)
    {
        aaa = i / THREE
        temp = prime[aaa]
        IF (temp EQ trueVal)
        {
            PRINT i, $n
            j = i * i
            v = t
            WHILE (j LE n)
            {
                aaa = j / THREE
    			prime[aaa] = falseVal
                aaa = v * i
                j = j + aaa
                v = SIX - v
            }
        }
        i = i + t
        t = SIX - t
    }

    RETURN $VOID
}