(split "\\n" str))
(defun int-list-from (str)
- (mapcar #'parse-integer (split "\\n" str)))
+ (mapcar #'parse-integer (list-from str)))
+
+(defun list-list-from (str)
+ (split-sequence "" (list-from str) :test #'string=))
(defun cartesian-product (A B &rest C)
(let ((helper (lambda (X Y)