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

(define sub-ls (take 5 ls))

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