let msg = File.ReadAllText("filetoread.txt")
printfn "%A" msg

let getWords (s:string) =
    Seq.filter (fun x -> String.length x > 0 ) (Array.toSeq (s.Split [|' ';',';';';'.';'(';')';':'|]))

getWords msg