Module Abc

type event = {
  1. start : float;
  2. length : float;
  3. notes : int list;
}
type tune = {
  1. title : string;
  2. voices : event list list;
  3. drums : bool list;
}
val parse : string -> (tune, string) Stdlib.result
val duration : tune -> float