sig
  external ( |. ) : ('a -> 'b) -> 'a -> 'b = "%apply"
  external ( !@ ) : string -> java'lang'String java_instance
    = "ocamljava_javastring_of_string"
  val ( ^^^ ) :
    java'lang'String java_instance ->
    java'lang'String java_instance -> java'lang'String java_instance
end