(* Initialise the toplevel environment. -*- tuareg -*-
- * $Id: init,v 1.7 2007/06/29 21:43:21 rjones Exp $
+ * $Id: init,v 1.8 2008/01/23 15:44:46 rjones Exp $
* - Removes the Pervasives module and any dangerous functions.
* - Loads just the modules we want to give access to, and just
* the functions within those modules that we want to give.
let _ = List.length
let _ = Nativeint.to_string
let _ = Num.add_num
+let _ = Random.int
let _ = Ratio.null_denominator
let _ = Stack.create
let _ = Str.regexp