(define ls '(1 2 3 4 5 6 7 8 9 10))

(define sub-ls (take ls 5))

(check (eq sub-ls '(1 2 3 4 5)))