let output chan l =       List.fold_left l ~init:(Model.return ()) ~f:(fun prev_m c ->           prev_m >>= fun () ->           Model.output chan (Char.to_native_string c))