based on a popular children's book

creative_cursing.fs

#light

open System
open System.IO

let getWordList file =
  File.ReadAllLines( file )

let rnd = Random()
let getRandArrElement arr =
  arr |> Seq.nth (rnd.Next arr.Length)

let wordList1 = getWordList "words1.txt"
let wordList2 = getWordList "words2.txt"

let word1 = getRandArrElement wordList1
let word2 = getRandArrElement wordList2

printf "%s %s" word1, word2

(*
  Output:
  $>creative_cursing
  #jizz waffle
  $>creative_cursing
  #ball junkie
  $>creative_cursing
  #nut shitter
*)