;; March 20, 2021
;
;; simpler version of slice, with more natural args order
;; slice index can be in any position
; (slice 2 '(1 2 3 4)) ;; => (1 2)
; (slice 7 '(1 2 3 4)) ;; => (1 2 3 4)
(define slice
(lambda (arg1 arg2)
(if (list? arg1)
(cl:slice-left arg1 arg2 )
(cl:slice-left arg2 arg1)
)))