(define (duzina a-list)
  (cond
    [(empty? a-list) 0]
    [else (+ (duzina (rest a-list)) 1)])
  )

(define (ima_del N I)
  (cond
    [(= N 0) true]
    [(and (< I N) (= (remainder N I) 0)) true]
    [(and (< I N) (not(= (remainder N I) 0) ))  (ima_del N (+ I 1))]
    [(= I N)  false]
   )
 )

(define (prost N)
  (cond    
    [(= N 1) true]
    [(boolean=? (ima_del N 2) true)  false]
    [else                     true]
   )
 )

(define (izbaci2 lista i)
  (cond
    [(empty? lista) empty]
    [(and (prost (first lista)) (= ( remainder i 2) 0)) (izbaci2 (rest lista) (+ i 1))]
    [else (cons (first lista) (izbaci2 (rest lista) (+ i 1)))]
    )
  )
(define (izbaci lista)
  (izbaci2 lista 1)
  )