(* A server for factorial and counting. Useful to see how many recursive calls 
   one can do in a server thread (which cannot grow). *)

module FactServer;

let fact =
  net_export("fact","", 
    { m => 
        meth(s,n) 
          if n is 0 then 1 else n * s.m(n-1) end
        end
    });

let count =
  net_export("count","",
    { m =>
        meth(s,n)
          if n is 0 then 0 else s.m(n-1) end;
        end
    });