include Profile with type t = float * float * float * float
type symbol
type t = float * float * float * float
type score
val score : t -> symbol -> score
val missing_score : t -> score
val complement : t -> t