let main ?buf = let buf = match buf with | None -> Buffer.create 64 | Some buf -> Buffer.clear buf; buf in main buf