let set_outchannel fmt = 
  s.outchannel <- fmt