let clear_to_eol oc () = fp oc "\027[K"