Печать F# discriminated union

я пишу программу F#, которая разбирает строку на тип AST, который является дискриминируемым союзом.

Когда я использую fsi (в Mono + Mac OS X) для выполнения своего кода, AST распечатывается в хорошем формате. Но когда я использую printfn "%s" <| ast.ToString() я получаю что-то вроде FSI_0002.Absyn+clazz. Написание метода ToString для всех дискриминируемых типов объединений было бы большой рутиной.

Как заставить значение напечатать так, как это делает fsi?