let optional_fields al =
    tag (parse_optional_fields al.optional) "Bam.Alignment0.optional_fields"