let nl () = Format.fprintf s.outchannel "\n"