sig
  type track = (string * string) list * string
  type error =
      Http of string
    | Auth of string
    | Adjust of string * string
    | Playlist
    | Empty
  exception Error of Lastfm_generic.Radio_t.error
  val string_of_error : Lastfm_generic.Radio_t.error -> string
  val base_host : string Stdlib.ref
  val get : ?timeout:float -> string -> Lastfm_generic.Radio_t.track list
  val parse : string -> Lastfm_generic.login * string * string option
  val init : ?timeout:float -> Lastfm_generic.login -> string
  val adjust : ?timeout:float -> string -> string -> (string * string) list
  val playlist : ?timeout:float -> string -> string option -> string
  val tracks :
    ?timeout:float ->
    string -> string option -> Lastfm_generic.Radio_t.track list
  val clear : string -> unit
end