StructuredFormat StackOverflow

[xkrt]

let pprint = Display.layout_as_string
                { FormatOptions.Default
                    with PrintDepth = Int32.MaxValue
                         PrintLength = Int32.MaxValue
                         PrintSize = Int32.MaxValue }
pprint [1..10000]

StackOverflowException

[vasily-kirichenko]

I tried sformat.fs from F# compiler 3.0 - the same exception.