diff --git a/README.md b/README.md
new file mode 100644
index 0000000..53943d1
--- /dev/null
+++ b/README.md
@@ -0,0 +1,9 @@
+# pwg
+### _Your Name <your.name@example.com>_
+
+This is a project to do ... something.
+
+## License
+
+Specify license here
+
diff --git a/package.lisp b/package.lisp
new file mode 100644
index 0000000..77bf9ff
--- /dev/null
+++ b/package.lisp
@@ -0,0 +1,4 @@
+;;;; package.lisp
+
+(defpackage #:pwg
+  (:use #:cl))
diff --git a/pwg.asd b/pwg.asd
new file mode 100644
index 0000000..0aa3f3c
--- /dev/null
+++ b/pwg.asd
@@ -0,0 +1,10 @@
+;;;; pwg.asd
+
+(asdf:defsystem #:pwg
+  :description "Describe pwg here"
+  :author "Your Name <your.name@example.com>"
+  :license  "Specify license here"
+  :version "0.0.1"
+  :serial t
+  :components ((:file "package")
+               (:file "pwg")))
diff --git a/pwg.fasl b/pwg.fasl
new file mode 100644
index 0000000..8acbffc
--- /dev/null
+++ b/pwg.fasl
Binary files differ
diff --git a/pwg.lisp b/pwg.lisp
new file mode 100644
index 0000000..8e1f11e
--- /dev/null
+++ b/pwg.lisp
@@ -0,0 +1,20 @@
+;;;; pwg.lisp
+
+(in-package #:pwg)
+
+(defvar +characters+ "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789!@#$%^&()_=")
+
+(defvar +length-characters+ (length +characters+))
+
+(defun generate-password (pwd-length)
+  "Generate a password of length PWD-LENGTH"
+  (let ((password (make-array 0 :element-type 'character :fill-pointer 0 :adjustable t)))
+    (dotimes (i pwd-length)
+      (vector-push-extend (char +characters+ (random (1- +length-characters+))) password))
+    password
+    (format t password)))
+
+;;;; https://stackoverflow.com/questions/5009853/how-to-pass-arguments-to-saved-sbcl-core
+(defun main ()
+  (let ((argv sb-ext:*posix-argv*))
+    ))