Demonstrating how to process text file using sequences in F#

SimpleFileProcessing.fsx

open System.IO
let ReadLines fn =
  seq { use inp = File.OpenText fn in
        while not(inp.EndOfStream) do
            yield (inp.ReadLine())
      }

#load @"FSharpChart.fsx"
#load @"FSharpChartAutoDisplay.fsx"
open Samples.Charting

type System.String with
  member x.GoodSplit() = x.Split([|'"';' ';'!';'.';',';';';'-'|])

let file = ReadLines @"c:\books\wap_1.txt"

file 
 |> Seq.map (fun x -> x.GoodSplit()) 
 |> Seq.concat
 |> Seq.filter (fun x->x.Length>3)
 |> Seq.groupBy (fun x->x.ToLower())
 |> Seq.map (fun (l,s) -> (l,-Seq.length s))
 |> Seq.sortBy snd
 |> Seq.take 5
 |> FSharpChart.Bar