gistfile1.fs

exception EmptyList of string
let rec folds g x
    = match x
      with [] -> raise (EmptyList "folds")
         | [x] -> x
         | h::t -> g h (folds g t)
try folds (fun x y -> x + y) []
with EmptyList m -> stdout.WriteLine(m);
     0