type(fval_t) :: p
p = Playlist()
