let set_inchannel ch = 
  s.inchannel <- ch