Random user data

gistfile1.fs

open System

let random low hi len =
    let random = Random()
    seq {for i in 1..len -> char <| random.Next(int low, int hi) } |> String.Concat

let text() =
    random 'a' 'z' 10

let email() =
    sprintf "%s@%s.com" <| text() <| text()

let phone() =
    random '0' '9' 9 |> sprintf "01%s"

let date (lowDate : DateTime) (hiDate : DateTime) = 
    let random = Random()
    let diff = hiDate.Subtract(lowDate).Days
    let days = random.Next(0, diff)
    lowDate.AddDays(float days)