method from_channel c = ((Marshal.from_channel c) :> 'a)