- external ( <<^ ) : int -> int -> int = "%lslint"
- external ( >>^ ) : int -> int -> int = "%lsrint"
+ external ( %^ ) : int -> int -> int = "%modint"
+ external ( <^< ) : int -> int -> int = "%lslint"
+ external ( >^> ) : int -> int -> int = "%lsrint"
+ external ( &^ ) : int -> int -> int = "%andint"
+ external ( |^ ) : int -> int -> int = "%orint"
+ external ( ^^ ) : int -> int -> int = "%xorint"