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.Radio.error
  val string_of_error : Lastfm.Radio.error -> string
  val base_host : string Pervasives.ref
  val get : string -> Lastfm.Radio.track list
  val parse : string -> Lastfm.login * string * string option
  val init : Lastfm.login -> string
  val adjust : string -> string -> (string * string) list
  val playlist : string -> string option -> string
  val tracks : string -> string option -> Lastfm.Radio.track list
  val clear : string -> unit
end