doc-src/Tutorial/Datatype/mutnested

sum_below f n -> setsum f (lessThan n)

datatype expr = Var string | Lam string expr | App expr expr
              | Data data
and      data = Bool bool | Num nat
              | Closure string expr "(string * data)list"