// a bit "impure", but it
// uses local mutation only
// and is a lot faster.

// this is what I would do in
// a real world scenario

let makeList dr =

  let mutable r = []

  let makeItem () =
    // code for reading data from dr...

  while dr.Read() do
    r <- (makeItem() :: r)

  rac