diff --git a/random.lisp b/random.lisp
new file mode 100644
index 0000000..08d28f3
--- /dev/null
+++ b/random.lisp
@@ -0,0 +1,12 @@
+(defun rnd (/ modulus multiplier increment random)
+(if (not seed)
+(setq seed (getvar "DATE"))
+)
+(setq modulus 65536
+multiplier 25173
+increment 13849
+seed (rem (+ (* multiplier seed) increment) modulus)
+random (/ seed modulus)
+)
+random
+)
\ No newline at end of file