README cleanup, slightly improved docs

Author: jbclements

README.md

@@ -6,10 +6,31 @@ This repo contains the Racket code that I used to generate markov models and
 huffman trees for [Molis Hai](http://www.brinckerhoff.org/molis-hai/pwgen.html),
 a random password generator that generates relatively memorable strings.
 
-Give it a try!
 
-If you want to run this code, you'll probably want to start with "letter-frequency.rkt".
+It's a Racket Package, which means you can install it using
+
+```
+raco pkg install molis-hai
+```
+
+You can run it using
+
+```
+raco molis-hai
+```
+
+This will give you a single password using an order-2 model and 56 bits of entropy.
 
-Honestly, this should probably all be licensed using Matt Might's CRAPL, rather
-than the noble Mozilla Public License 2.0.
+You could instead run
 
+```
+raco molis-hai -o 3 -b 80 -n 4
+```
+
+to generate 4 passwords using a third-order model with 80 bits of entropy each.
+
+When I'm generating secure root passwords, I generate 8 passwords using 59 bits
+of entropy, and then pick the one I like the best. This guarantees at least 56
+bits of entropy in the resulting password.
+
+Give it a try!

molis-hai/cmd-line.rkt

@@ -27,15 +27,15 @@
 (command-line
  #:program (short-program+command-name)
  #:once-each
- [("-b" "--bits") str "Specify number of bits of entropy"
+ [("-b" "--bits") bits "Specify number of bits of entropy"
                   (set-numeric-parameter-from-string
-                   entropy-bits str 'set-entropy-bits 500)]
- [("-n" "--passwords") str "Specify number of passwords generated"
+                   entropy-bits bits 'set-entropy-bits 500)]
+ [("-n" "--passwords") pwds "Specify number of passwords generated"
                        (set-numeric-parameter-from-string
-                        num-pwds str 'set-num-pwds 100)]
- [("-o" "--model-order") str "Specify the order of the model"
+                        num-pwds pwds 'set-num-pwds 100)]
+ [("-o" "--model-order") order "Specify the order of the model"
                          (set-numeric-parameter-from-string
-                          model-order str 'set-model-order 10)])
+                          model-order order 'set-model-order 10)])
 
 (define atotc-path (build-path here "a-tale-of-two-cities.txt"))