method to_channel (x : 'a) c = Marshal.to_channel c x flags