Update to fix randomization issues

splork.lsp

@@ -14,8 +14,6 @@
 ;; You should have received a copy of the GNU General Public License
 ;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
 
-(setf *random-state* (make-random-state t))
-
 (load "words.lsp")
 (load "sent-struct.lsp")
 
@@ -98,5 +96,6 @@
 		generated-sentence))
 
 (defun splork-generate ()
+	(setf *random-state* (make-random-state t))
 	(princ (splork)))