HackerRank challenge Cut The Sticks in Common Lisp

cut-the-sticks.lisp

(defun space-split (string)
"works for integers only at this point"
	(loop for start = 0 then (1+ finish) ;; increments start by the value of finish
		for finish = (position #\Space string :start start) ;; gives position of the next space begins at start
		collecting (parse-integer (subseq string start finish)) ;; gathers integers from string list
		until (null finish))) ;; continue until finish is nil (runs off the end of the string)

(defun cut-sticks (sticks)
    (do ((rest (sort sticks #'<)
               (remove (car rest) rest)))
        ((null rest))
        (format t "~d~%" (length rest))))

(read) ;; Just here for consumption. Do not need the length with this implementation

(cut-sticks (space-split (read-line)))

#| Credit goes to the Lisp guys over at StackOverflow for helping me with this one |#
#| http://stackoverflow.com/questions/26454550/cut-the-stick-hackerrank-challenge-lisp-implementation |#