overflowing on length...

long sequences.fs

let fileAsSeq filename = 
   let bufferlength = 4096
   let fs = new FileStream(filename, FileMode.Open, FileAccess.Read, FileShare.ReadWrite)
   let rec infStream = seq {
       let buffer = Array.zeroCreate<byte> bufferlength
       let bytesRead = fs.Read(buffer,0,bufferlength)
       if not (bytesRead = bufferlength) then 
            let smallerbuffer = Array.zeroCreate<byte> bytesRead
            Array.Copy(buffer,0,smallerbuffer,0,bytesRead)
            yield! smallerbuffer
            fs.Dispose()
       else 
           yield! buffer
           yield! infStream
   }
   { file = fs; stream = infStream }
fileAsSeq @"e:\Steam\Steam.dll" |> fun (x) -> x.stream |> Seq.length

Seq should maybe have Seq.longLength?