let inchannel_of_string = Pervasives.open_in