hiredman

cat > /tmp/storeid.lisp <<EOF
#!/usr/bin/sbcl --script

(loop
 (let* ((parts (list ""))
        (_ (loop for c across (read-line) do
                (cond
                  ((equal c #\Space)
                   (setf parts (cons "" parts)))
                  ('t