;; split a list after input element is found
;; remaining part of the list is returned
;
; (list-split-at 'b '(a b c)) ;; +> (c)
(define list-split-after
(lambda (element lst)
(if (member element lst)
(let ((a (list-position element lst)))
a
(cl:nthcdr (+ a 1) lst)
))))