Update String Reductions.lisp