I've following declarations

---cut---
type rat = int * int;;

exception Denominator_Zero;;

let rec ggT : (int * int) -> int = fun (x,y) -> if y = 0 then x else ggT 
(y, x mod y)

let kgV : int * int -> int = fun (x,y) -> (x / ggT (x,y)) * y 

let kuerze : rat -> rat = function (m,n)  -> if n = 0 then raise 
Denominator_Zero
				else let g=ggT (m,n) in (m div g,n div g)
---cut---

Loading it with #use give the following error message, which I do not 
understand. Could anyone help me?

---cut--
# #use "B2A3.ml";;
type rat = int * int
exception Denominator_Zero
val ggT : int * int -> int = <fun>
val kgV : int * int -> int = <fun>
File "B2A3.ml", line 10, characters 29-30:
This expression is not a function, it cannot be applied
---cut---

Thanks

hs

-- 
"Sie haben neue Mails!" - Die GMX Toolbar informiert Sie beim Surfen!
Jetzt aktivieren unter http://www.gmx.net/info

-------------------
To unsubscribe, mail caml-list-request@inria.fr Archives: http://caml.inria.fr
Bug reports: http://caml.inria.fr/bin/caml-bugs FAQ: http://caml.inria.fr/FAQ/
Beginner's list: http://groups.yahoo.com/group/ocaml_beginners