let rec fact =
  \lambda x:nat.
    [\lambda x:nat. nat]
    match x:nat with
    [ O \Rightarrow 1
    | (S (x: nat)) \Rightarrow (mult (S x) (fact x)) ]
in
(fact 4)