unfold.fsx

        let walkCommits (hash: Hash, count) =
            printfn "%s %s %s" objectsDir hash.DirectoryName hash.FileName

            let objectPath = Path.Combine(objectsDir, hash.DirectoryName, hash.FileName)
            printfn "objectPath: %s" objectPath
            let gitObject = GitObject.ParseFile objectPath
            match gitObject with
            | Commit (_, commit) -> 
                match commit.Parent with
                | Some (hash) when count < 10 -> 
                    Some(commit, (hash, (count + 1)))
                | Some (_)
                | None -> None
            | _ -> failwithf "Unexpected object type: %A" gitObject
        Seq.unfold walkCommits (headHash, 0)