Bug in F# fold when using pattern matching.