type currentsong = {
  artist: string list;
  performer: string list;
  composer: string list;
  title: string option;
  track: int option;
  musicbrainz_albumid: string option;
  musicbrainz_artistid: string list;
  musicbrainz_trackid: string option;
}

exception ParseError of string

val parse_string : 'a Angstrom.t -> string -> 'a

val currentsong_parser : currentsong Angstrom.t