(define apa '(1 2 3 4 5 6 7 8 9 10))
(check (and (= (ix apa -10) 1)
(= (ix apa 0) 1)
(= (ix apa -9) 2)
(= (ix apa 1) 2)))