Password.fs

#light
open System

[<EntryPoint>]
let main (args : string[]) =
    if args.Length <> 1 then
        failwith "Error: Expected arguments are <password_length>"
             
    let password_length = args.[0]
    let pool2 = List.concat [['a'..'z']; ['A'..'Z']; ['1'..'9']; ['!';'$';'#';'.']]
    let r = new Random()
    List.iter (fun elem -> printf "%c" pool2.[r.Next(1, pool2.Length)] ) [1 .. Convert.ToInt32(password_length)]
    0