Plaster

(defun main () (let* ((line (read-line)) (parts (handler-bind ((parse-error (lambda (c) (format t "Invalid input!~%") (return-from main)))) (mapcar #'parse-integer (ppcre:split "," line))))) parts))