Fparsec recursive grammatics throw StackOverflowException

Question

I\'ve got this code

type Exprs = 
    | Val of float
    | Mult of Exprs  * Exprs
    | Plus of Exprs  * Exprs

let pexpr, exprRef = createParserForwardedToR