let to_tag (f : file_format) = (f :> t)