Update ocat.ml.
Add more functions.