【.NET】F#について語れ2【OCAML】

[0530 デフォルトの名無しさん 2013/10/26(土) 00:51:59.61]

type T = [<Leaf>]A | [<Node>]B of T * T
この型Tに対して
let rec size = function A -> 1 | B(x,y) -> 1 + size x + size y
こんなような関数を大量に自動生成したいんだけど
Reflection+CodeDom以外に選択肢ある？