open Bistro

class type bimbam = object
  inherit text
  method format : [`bimbam]
end

class type newick = object
  inherit text
  method format : [`newick]
end

class type nhx = object
  inherit newick
  method newick_variant : [`nhx]
end

class type phylip = object
  inherit text
  method format : [`phylip]
end

class type diffsel_tree = object
  inherit text
  method format : [`diffsel_tree]
end

class type topological_tree = object
  inherit text
  method format : [`topological_tree]
end

class type nucleotide_fasta = object
  inherit fasta
  method alphabet : [`Nucleotide]
end

class type aminoacid_fasta = object
  inherit fasta
  method alphabet : [`Aminoacid]
end

class type nucleotide_phylip = object
  inherit phylip
  method alphabet : [`Nucleotide]
end

class type aminoacid_phylip = object
  inherit phylip
  method alphabet : [`Aminoacid]
end

class type rds = object
  inherit binary_file
  method format : [`rds]
end

(** Convergence Prediction Table *)
class type cpt = object
  inherit tsv
  method header : [`Yes]
  method fields : [`Site_then_scores]
end