let bol oc () = fp oc "\r"