add ssq-jo.lisp