(* The core module *)
(* To compile : heptc -nopervasives pervasives.epi *)
type bool = true | false
type int
type float
type string
external val fun (&)(bool;bool) returns (bool)
external val fun ( * )(int;int) returns (int)
external val fun ( *. )(float;float) returns (float)
external val fun (%)(int;int) returns (int)
external val fun (+)(int;int) returns (int)
external val fun (+.)(float;float) returns (float)
external val fun (-)(int;int) returns (int)
external val fun (-.)(float;float) returns (float)
external val fun (/)(int;int) returns (int)
external val fun (/.)(float;float) returns (float)
external val fun ( = )(int;int) returns (bool)
external val fun ( <= )(int;int) returns (bool)
external val fun ( <=. )(float;float) returns (bool)
external val fun ( < )(int;int) returns (bool)
external val fun ( <. )(float;float) returns (bool)
external val fun ( >= )(int;int) returns (bool)
external val fun ( >=. )(float;float) returns (bool)
external val fun ( > )(int;int) returns (bool)
external val fun ( >. )(float;float) returns (bool)
external val fun (not)(bool) returns (bool)
external val fun (or)(bool;bool) returns (bool)
external val fun (xor)(bool;bool) returns (bool)
external val fun (~-)(int) returns (int)
external val fun (~~)(int) returns (int)
external val fun (>>>)(int;int) returns (int)
external val fun (<<<)(int;int) returns (int)
external val fun (&&&)(int;int) returns (int)
external val fun (|||)(int;int) returns (int)
external val fun (~-.)(float) returns (float)
external val fun do_stuff(int) returns (int)
external val fun between(int;int) returns (int)

external val fun exit(bool) returns ()
external val fun assert(bool) returns ()