(* The code for the factorial executed by the server *) let rec fact = function | 0 -> 1 | n when n < 0 -> failwith "fact on a negative number" | n -> n * fact (n - 1) ;; let fact_wrapped = Wire.fn_int_int fact