type Val =
    | FList of Val list
let p = Playlist
