modify simple_cat to use given out_channel instead of stdout
new file:   glical_tool.mli