(module web-itunes mzscheme (require (lib "contract.ss") (lib "xml.ss" "xml") (lib "list.ss")) (define p->s (if (regexp-match #rx"209" (version)) values (dynamic-require 'mzscheme 'path->string))) (define-struct album (artist title songs) (make-inspector)) (define-struct html (xexpr) (make-inspector)) (define-struct (tr html) () (make-inspector)) (define-struct (td html) () (make-inspector)) (provide robbys-itunes) (provide/contract [save-web-page (-> string? string? html? any)] [table (-> (listof tr?) html?)] [center (-> html? html?)] [rename -tr tr (-> (listof td?) html?)] [rename -td td (-> html? td?)] [pcd (-> string? html?)] [bold (-> html? html?)] [italic (-> html? html?)] [link (-> string? html? html?)]) (define (bold html) (make-html `(b ,(html-xexpr html)))) (define (center html) (make-html `(center ,(html-xexpr html)))) (define (italic html) (make-html `(i ,(html-xexpr html)))) (define (table trs) (make-html `(table ,@(map html-xexpr trs)))) (define -tr (let ([tr (lambda (tds) (make-tr `(tr ,@(map html-xexpr tds))))]) tr)) (define -td (let ([td (lambda (html) (make-td `(td ,(html-xexpr html))))]) td)) (define (pcd str) (make-html str)) (define (link href html) (make-html `(a ((href ,href)) ,(html-xexpr html)))) (define (save-web-page filename title html) (call-with-output-file filename (lambda (port) (write-xml/content (xexpr->xml `(html (head (title ,title) (meta ((content "text/html; charset=UTF-8") (http-equiv "Content-Type")))) (body (h2 ,title) ,(html-xexpr html)))) port)) 'truncate 'text) #t) (provide/contract [itunes-dirs (string? . -> . (listof album?))] (struct album ((artist string?) (title string?) (songs (listof string?))))) (define (itunes-dirs start) (mergesort (apply append (map (lambda (artist-dir) (map (lambda (album-dir) (make-album (p->s artist-dir) (p->s album-dir) (filter values (map (lambda (song-name) (let ([m (regexp-match #rx"^(.*)\\....$" (p->s song-name))]) (and m (cadr m)))) (directory-list (build-path start artist-dir album-dir)))))) (filter (λ (x) (directory-exists? (build-path start artist-dir x))) (directory-list (build-path start artist-dir))))) (filter (λ (x) (directory-exists? (build-path start x))) (directory-list start)))) compare-albums)) (define (compare-albums a1 a2) (cond [(string=? (album-artist a1) (album-artist a2)) (string-ci<=? (album-title a1) (album-title a2))] [else (string<=? (album-artist a1) (album-artist a2))])) (define robbys-itunes `(,(make-album "24-7 Spyz" "This Is 24 - 7 Spyz" `("01 Tick, Tick ,Tick" "02 Stuntman" "03 My Desire" "04 Peace & Love" "05 Earthquake")) ,(make-album "RZA" "The RZA Hits" `("18 Wu Wear Garment Renaissance")) ,(make-album "Radiohead" "Kid A" `("01 Everything In Its Right Place" "02 Kid A" "03 The National Anthem" "04 How To Disappear Completely" "05 Treefingers" "06 Optimistic" "07 In Limbo" "08 Idioteque" "09 Morning Bell" "10 Motion Picture Soundtrack")) ,(make-album "The Police" "Synchronicity" `("01 Synchronicity I" "02 Walking In Your Footsteps" "03 O My God" "04 Mother" "05 Miss Gradenko" "06 Synchronicity II" "07 Every Breath You Take" "08 King of Pain" "09 Wrapped Around Your Finger" "10 Tea In The Sahara" "11 Murder By Numbers")) ,(make-album "The Roots" "Phrenology" `("01 Phrentrow" "02 Rock You" "03 !!!!!!!" "04 Sacrifice" "05 Rolling With Heat" "06 Waok (Ay) Rollcall" "07 Thought @ Work" "08 The Seed (2.0)" "09 Break You Off" "10 Water" "11 Quills" "12 Pussy Galore" "13 Complexity" "14 Something In The Way Of Things (In Town)" "17 Rhymes And Ammo_Thirsty")) ,(make-album "The Smiths" "Meat is Murder" `("01 The Headmaster Ritual" "02 Rusholme Ruffians" "03 I Want The One I Can't Have" "04 What She Said" "05 That Joke Isn't Funny Anymore" "06 How Soon Is Now_" "07 Nowhere Fast" "08 Well I Wonder" "09 Barbarism Begins At Home" "10 Meat Is Murder")) ,(make-album "The Smiths" "Rank" `("01 The Queen Is Dead" "02 Panic" "03 Vicar In A Tutu" "04 Ask" "05 Rusholme Ruffians" "06 The Boy With The Thorn In His Side" "07 What She Said" "08 Is It Really So Strange_" "09 Cemetry Gates" "10 London" "11 I Know It's Over" "12 The Draize Train" "13 Still Ill" "14 Bigmouth Strikes Again")) ,(make-album "The Who" "Tommy (Disc 2)" `("2-01 Do You Think It's Alright Fiddle About" "2-02 Pinball Wizard" "2-03 There's a Doctor I've Found" "2-04 Go to the Mirror Boy" "2-05 Tommy Can You Hear Me" "2-06 Smash the Mirror" "2-07 Sensation" "2-08 Miracle Cure" "2-09 Sally Simpson" "2-10 I'm Free" "2-11 Welcome" "2-12 Tommy's Holiday Camp" "2-13 We're Not Gonna Take It")) ,(make-album "Thelonious Monk" "5th Session On Blue Note" `("01 Four In One" "02 Four In One - Alt" "03 Criss Cross" "04 Criss Cross - Alt" "05 Eronel" "06 Straight No Chaser" "07 Ask Me Now - Alt" "08 Ask Me Now" "09 Willow Weep For Me" "10 Skippy" "11 Skippy - Alt" "12 Hornin' In - Alt" "13 Hornin' In" "14 Sixteen - 1st" "15 Sixteen - 2nd" "16 Carolina Moon" "17 Let's Cool One" "18 I'll Follow You")) ,(make-album "Thelonious Monk" "Brilliant Corners" `("01 Brilliant Corners" "02 Ba-Lue Bolivar Ba-Lues Are" "03 Pannonica" "04 I Surrender, Dear" "05 Bemsha Swing")) ,(make-album "Thelonious Monk" "Monk --The Composer" `("01 'Round Midnight" "02 Bemsha Swing" "03 Rhythm-A-Ning" "04 Reflections" "05 Straight, No Chaser" "06 Brilliant Corners" "07 Ruby, My Dear" "08 Well You Needn't" "09 Blue Monk" "10 Criss Cross" "11 Crepuscule With Nellie")) ,(make-album "Thelonious Monk" "The London Collection ( Volume 3 )" `("3-01 Trinkle Tinkle" "3-02 The Man I Love" "3-03 Something In Blue" "3-04 Introspection" "3-05 Trinkle Tinkle" "3-06 Crepuscule With Nellie" "3-07 Nutty" "3-08 Introspection" "3-09 Hackensack" "3-10 Evidence" "3-11 Chordially")) ,(make-album "Thelonious Monk" "The London Collection - Vol. 2" `("01 Evidence" "02 Misterioso" "03 Crepuscule With Nellie" "04 I Mean You" "05 Criss Cross" "06 Ruby My Dear" "07 Nutty" "08 Hackensack")) ,(make-album "Thelonious Monk" "The London Collection vol 1" `("01 Trinkle Tinkle" "02 Crepuscule With Nellie" "03 Darn That Dream" "04 Little Rootie Tootie" "05 Meet Me Tonight In Dreamland" "06 Nice Work If You Can Get It" "07 My Melancholy Baby" "08 Jackie-ing" "09 Loverman" "10 Blue Sphere")) ,(make-album "Thelonious Monk" "Thelonious Monk Plays Duke Ellington" `("01 It Don't Mean A Thing" "02 Sophisticated Lady" "03 I Got It Bad And That Ain't Good" "04 Black And Tan Fantasy" "05 Mood Indigo" "06 I Let A Song Go Out Of My Heart" "07 Solitude" "08 Caravan")) ,(make-album "Third Eye Blind" "Third Eye Blind" `("01 Losing A Whole Year" "02 Narcolepsy" "03 Semi-Charmed Life" "04 Jumper" "05 Graduate" "06 How's It Going To Be" "07 Thanks A Lot" "08 Burning Man" "09 Good For You" "10 London" "11 I Want You" "12 The Background" "13 Motorcycle Drive By" "14 God Of Wine")) ,(make-album "Timbuk 3" "Espace Ornano" `("01 Dirty Dirty Rice" "02 Too Much Sex (Not Enough Affection)" "03 Daddy's Down In The Mine" "04 Acid Rain" "05 Rage Of Angels" "06 Tarzan Was A Bluesman" "07 A Sinful Life" "08 Throw Down Gun" "09 The Border Crossing" "10 Big Shot In The Dark" "11 Bleeding Heart" "12 Sample The Dog" "13 Reckless Driver")) ,(make-album "Tito Puente" "12 Mambos & Take 5" `("01 Cuban Nightmare" "02 Four Beat Cha Cha" "03 Donde Estabas Tu" "04 Swingin' The Mambo" "05 Cao Cao Mani Picao" "06 Picadillio" "07 Take Five" "08 A Gozar Timbero" "09 El Cayuco" "10 Mambo Gozon" "11 Separala Tambien" "12 Que Sera" "13 Mambo Beat")) ,(make-album "Tom Waits" "Blood Money" `("01 Misery Is The River Of The World" "02 Everything Goes To Hell" "03 Coney Island Baby" "04 All The World Is Green" "05 God's Away On Business" "06 Another Man's Vine" "07 Knife Chase" "08 Lullaby" "09 Starving In The Belly Of The Whale" "10 The Part You Throw Away" "11 Woe" "12 Calliope" "13 A Good Man Is Hard To Find")) ,(make-album "Tone-Loc" "Millennium Hip-Hop Party" `("03 Funky Cold Medina")) ,(make-album "Tony Bennett And Bill Evans" "The Tony Bennett Bill Evans Album" `("01 Young and Foolish" "02 The Touch of Your Lips" "03 Some Other Time" "04 When In Rome" "05 We'll Be Together Again" "06 My Foolish Heart" "07 Waltz For Debby" "08 But Beautiful" "09 Days of Wine and Roses")) ,(make-album "Too Much Joy" "Son of Sam I Am" `("01 Making Fun of Bums" "02 Song for a Girl Who Has One" "03 Clowns" "04 My Past Lives" "05 That's A Lie" "06 Hugo!" "07 Kicking (That Gone Fishing Song)" "08 Life is Flowers" "09 Connecticut" "10 Bad Dog" "11 1964" "12 Worse" "13 Seasons in the Sun" "14 If I Was a Mekon" "15 Train in Vain")) ,(make-album "Tori Amos" "B Levels" `("01 Little Drummer Boy" "02 Angie" "03 Smells Like Teen Spirit" "04 Thank You" "05 Ring My Bell" "06 The Pool" "07 Take To The Sky" "08 Sweet Dreams" "09 Upside Down" "10 Home On The Range With Cherokee Addition" "11 Daisy Dead Petals" "12 Honey" "13 Black Swan" "14 All The Girls Hate Her" "15 Over It" "16 Down By The Seaside" "17 Sister Janet" "18 This Old Man" "19 That`S What I Like Mick (The Sandwich Song)" "20 Graveyard" "21 Hungarian Wedding Song")) ,(make-album "Tori Amos" "Boys For Pele" `("01 Horses" "02 Blood Roses" "03 Father Lucifer" "04 Professional Widow" "05 Mr Zebra" "06 Marianne" "07 Caught A Lite Sneeze" "08 Muhammad My Friend" "09 Hey Jupiter" "10 Way Down" "11 Little Amsterdam" "12 Talula (The Tornado Mix)" "13 Not The Red Baron" "14 Agent Orange" "15 Doughnut Song" "16 In The Springtime Of His Voodoo" "17 Putting The Damage On" "18 Twinkle")) ,(make-album "Tori Amos" "From The Choirgirl Hotel" `("01 Track 01" "02 Track 02" "03 Track 03" "04 Track 04" "05 Track 05" "06 Track 06" "07 Track 07" "08 Track 08" "09 Track 09" "10 Track 10" "11 Track 11" "12 Track 12")) ,(make-album "Tori Amos" "Little Earthquakes" `("01 Crucify" "02 Girl" "03 Silent All These Years" "04 Precious Things" "06 Happy Phantom" "07 China" "08 Leather" "09 Mother" "10 Tear In Your Hand" "11 Me And A Gun" "12 Little Earthquakes")) ,(make-album "Tori Amos" "Scarlet's Walk" `("1-01 Amber Waves" "1-02 A Sorta Fairytale" "1-03 Wednesday" "1-04 Strange" "1-05 Carbon" "1-06 Crazy" "1-07 Wampum Prayer" "1-08 Don't Make Me Come To Vegas" "1-09 Sweet Sangria" "1-10 Your Cloud" "1-11 Pancake" "1-12 I Can't See New York" "1-13 Mrs. Jesus" "1-14 Taxi Ride" "1-15 Another Girl's Paradise" "1-16 Scarlet's Walk" "1-17 Virginia" "1-18 Gold Dust")) ,(make-album "Tori Amos" "Strange Little Girl" `("11 Real Men")) ,(make-album "Tori Amos" "Under the Pink" `("01 Pretty Good Year" "02 God" "03 Bells for Her" "04 Past the Mission" "05 Baker Baker" "06 The Wrong Band" "07 The Waitress" "08 Cornflake Girl" "09 Icicle" "10 Cloud My Tongue" "11 Space Dog" "12 Yes, Anastasia")) ,(make-album "Tori Amos" "Unknown Album" `("Tori Amos - Lovesong (The Cure cover (live)")) ,(make-album "Tori Amos" "Venus and Back (studio)" `("13 Track 13" "14 Track 14" "15 Track 15")) ,(make-album "Trans-Siberian Orchestra" "Beethoven's Last Night" `("01 Overture" "02 Midnight" "03 Fate" "04 What Good This Deafness" "05 Mephistopheles" "06 What Is Eternal" "07 The Moment" "08 Vienna" "09 Mozart_Figaro" "10 The Dreams Of Candlelight" "11 Requiem (The Fifth)" "12 I'll Keep Your Secrets" "13 The Dark" "14 Fur Elise" "15 After The Fall" "16 A Last Illusion" "17 This Is Who You Are" "18 Beethoven" "19 Mephistopheles' Return" "20 Misery" "21 Who Is This Child" "22 A Final Dream")) ,(make-album "Travis Tritt" "Unknown Album" `("04 Great Day To Be Alive")) ,(make-album "Tuck & Patti" "The Best Of Tuck & Patti" `("01 Tears Of Joy" "02 Time After Time" "03 Castles Made Of Sand - Little Wing" "04 Better Than Anything" "05 Takes My Breath Away" "06 Europa" "07 Dream" "08 Love Is The Key" "09 Sitting In Limbo" "10 Sweet P" "11 Love Warriors" "12 As Time Goes By")) ,(make-album "Tupac" "Makaveli (The 7 Day Theory)" `("01 Intro-Bomb First" "02 Hail Mary" "03 Toss It Up" "04 To Live And Die In LA" "05 Blasphemy" "06 Life of an Outlaw" "07 Just Like Daddy" "08 Krazy" "09 White Man'z World" "10 Me and My Girlfriend" "11 Hold Ya Head" "12 Against All Odds")) ,(make-album "Tupac Shakur feat. Richie Rich" "All Eyez On Me" `("Ratha Be Ya Nigga")) ,(make-album "Unknown Artist" "Red, White & Blue" `("01 gershwin prelude for piano" "02 A. Woodall-serenade" "03 gary schocker - regrets and resolutions" "04 k. hoover - kokopeli" "05 richard r. bennet - summer music -allegro tranquillo" "06 siesta" "07 games" "08 samuel barber - canzone" "09 john rutter - suite antique - prelude" "10 ostinato" "11 aria" "12 waltz" "13 chanson" "14 rondeau" "15 gershwin- prelude for piano")) ,(make-album "Usher" "My Way" `("01 You Make Me Wanna" "03 Nice & Slow" "05 My Way" "10 You Make Me Wanna (Extended Version)")) ,(make-album "Van Morrison" "Moondance" `("01 And It Stoned Me" "02 Moondance" "03 Crazy Love" "04 Caravan" "05 Into the Mystic" "06 Come Running" "07 These Dreams of You" "08 Brand New Day" "09 Everyone" "10 Glad Tidings")) ,(make-album "Various Artists" "Mad About You" `("01 Final Frontier" "04 I've Been Lonely Too Long" "07 Ice Cream")) ,(make-album "Various Artists" "Side Man" `("01 I Remember Clifford (Lee Morgan)" "02 Rockin' Chair (Roy Eldridge)" "03 I Don't Stand A Ghost Of A Chance (Clifford Brown)" "04 Daahoud (Clifford Brown)" "05 Cristo Redentor (Donald Byrd)" "06 Land's End (Clifford Brown)" "07 Chelsea Bridge (Ella Fitzgerald_Duke Ellington)" "08 A Night In Tunisia (Clifford Brown)" "09 Time (Clifford Brown)" "10 It Never Entered My Mind (Miles Davis)")) ,(make-album "Various Artists" "The Last Days Of Disco Music From The Motion Picture" `("03 Got To Be Real 1" "03 Got To Be Real")) ,(make-album "Vaughan Williams_Five Tudor Portraits_Hickox_LSO" "Vaughan Williams_Five Tudor Portraits_Hickox_LSO" `("01 Ballad_The Tunning of Elinor Rumming" "02 Intermezzo_ Pretty Bess" "03 Burlesca_ Epitaph on John Jayberd of Diss" "04 Romanza_ Jane Scroop (Her lament for Philip Sparrow)" "05 Scherzo_ Jolly Rutterkin" "06 Five Variants of 'Dives and Lazarus'")) ,(make-album "Wallace Davenport & the Alliance Hall Dixieland Bank" "A Closer Walk" `("01 Marie" "02 Careless Love" "03 Clarinet Marmalade" "04 Is It True What They Say About Dixie_" "05 Dieland One-Step" "06 Tin Roof Blues" "07 A Closer Walk With Thee" "08 Do You Know What It Means To Miss New Orleans_" "09 When The Saints Go Marching In")) ,(make-album "War" "WAR-Peace Sign" `("01 Peace Sign" "02 East L.A." "03 Wild Rodriguez" "04 I'm The One" "05 Da Roof" "06 The Smuggler" "07 U B O.K." "08 Let Me Tell You" "09 Smile For Me" "10 What If" "11 Angel" "12 Homeless Hero")) ,(make-album "Weather Report" "Heavy Weather" `("01 Birdland" "02 A Remark You Made" "03 Teen Town" "04 Harlequin" "05 Rumba Mama" "06 Palladium" "07 The Juggler" "08 Havona")) ,(make-album "William Albright" "Marches Waltzes And Rags Of Scott Joplin" `("01 The Crush Collision March" "02 Harmony Club Waltz" "03 Combination March" "04 Swipesy Cakewalk" "05 Augustan Club Waltz" "06 Sunflower Slow Drag" "07 Cleopha" "08 March Majestic" "09 Something Doing" "10 Bethena" "11 Rosebud" "12 Binks' Waltz" "13 Antoinette" "14 Heliotrope Bouquet" "15 Lily Queen" "16 Pleasant Moments" "17 Felicity Rag" "18 Kismet Rag")) ,(make-album "Wolfgang Amadeus Mozart" "Mozart Requiem_Exsultate Jubilate [Giulini, Carlo Maria]" `("01 Requiem" "02 Kyrie" "03 Dies irae" "04 Tuba mirum" "05 Rex tremendae" "06 Recordare" "07 Confutatis" "08 Lacrimosa" "09 Domine Jesu" "10 Hostias" "11 Sanctus" "12 Benedictus" "13 Agnus Dei" "14 Lux aeterna" "15 Exsultate Jubilate K. 165")) ,(make-album "World Saxophone Quartet" "M'Bizo" `("01 Snanapo" "02 Africa-Europe-Asia" "03 Sizelapha" "04 M-Bizo" "05 Malshidiso")) ,(make-album "Wyclef Jean" "The Carnival" `("01 Intro_Court_Clef_Intro" "02 Apocalypse" "03 Guantanamera" "04 Pablo Diablo (Interlude)" "05 Bubblegoose" "06 Prelude To _To All The Girls_ (Interlude)" "07 To All The Girls" "08 Down Lo Ho (Interlude)" "09 Anything Can Happen" "10 Gone Til November" "11 Words Of Wisdom" "12 Year Of The Dragon" "13 Sang Fézi" "14 Fresh Interlude" "15 Mona Lisa" "16 Street Jeopardy" "17 Killer M.C. (Interlude)" "18 Staying Alive" "19 Gunpowder" "20 Closing Arguments (Interlude_Skit)" "21 Enter The Carnival" "22 Jaspora" "23 Yele" "24 Carnival")) ,(make-album "Wynton Kelley" "Blues On Purpose" `("01 Blues On Purpose" "02 If You Could See Me Now" "03 Somebody's Blues" "04 Another Blues" "05 Old Folks" "06 Milestones")) ,(make-album "Wynton Kelly" "Last Trio Session" `("01 When Love Slips Away" "02 Castilian Waltz" "03 Say A Little Prayer For Me" "04 Kelly's Blues" "05 Watch What Happens" "06 House Of Cards" "07 Light My Fire" "08 Castilian Waltz" "09 Yesterday")) ,(make-album "Wynton Marsalis" "Big Train" `("01 All Aboard" "02 Observation Car" "03 Union Pacific Big Boy" "04 Smokestack Shuffle" "05 Northbound-Southbound" "06 Dining Car" "07 Night Train" "08 Engine" "09 Bullet Train" "10 Sleeper Car" "11 Station Call" "12 The Caboose")) ,(make-album "Wynton Marsalis" "Live At Blues Alley (Disc 1)" `("01 Knozz-Moe-King" "02 Just Friends" "03 Knozz-Moe-King (Interlude)" "04 Juan" "05 Cherokee" "06 Delfeayo's Dilemma" "07 Chambers Of Tain" "08 Juan")) ,(make-album "Wynton Marsalis" "Live At Blues Alley (Disc 2)" `("2-01 Au Privave" "2-02 Knozz-Moe-King (Interlude)" "2-03 Do You Know What It Means To Miss New Orleans" "2-04 Juan (Skip Mustaad)" "2-05 Autumn Leaves" "2-06 Knozz-Moe-King" "2-07 Skain's Domain" "2-08 Much Later")) ,(make-album "Wynton Marsalis" "Standard Time, Volume 3_ Resolution Of Romance" `("01 In The Court Of King Oliver" "02 Never Let Me Go" "03 Street Of Dreams" "04 Where Or When" "05 Bona & Paul" "06 The Seductress" "07 A Sleepin' Bee" "08 Big Butter & Egg Man" "09 The Very Thought Of You" "10 I Cover The Waterfront" "11 How Are Things In Glocca Morra" "12 My Romance" "13 Everything Happens To Me" "14 Flamingo" "15 You're My Everything" "16 Skylark" "17 It's Easy To Remember" "18 Taking A Chance On Love" "19 I Gotta Right To Sing The Blues" "20 In The Wee Small Hours Of The Morning" "21 It's Too Late Now")) ,(make-album "Wynton Marsalis" "The Majesty of the Blues" `("01 The Majesty of the Blues (The Puheman Strut)" "02 Hickory Dickory Dock" "03 The New Orleans Function - The Death of Jazz" "04 The New Orleans Function - Premature Autopsies" "05 The New Orleans Function - Oh but on the Third Day")) ,(make-album "Wynton Marsalis" "Uptown Ruler" `("01 Psalm 26" "02 Uptown Ruler" "03 The Truth Is Spoken Here" "04 The Burglar" "05 Prayer" "06 Harmonique" "07 Down Home With Homey" "08 Psalm 26")) ,(make-album "Yes" "Big Generator" `("01 Rhythm Of Love" "02 Big Generator" "03 Shoot High Aim Low" "04 Almost Like Love" "05 Love Will Find A Way" "06 Final Eyes" "07 I'm Running" "08 Holy Lamb")) ,(make-album "Yes" "Classic Yes" `("01 Heart Of The Sunrise" "02 Wondrous Stories" "03 Yours Is No Disgrace" "04 Starship Trooper_ Life Seeker_Disillusion_Wurm" "05 Long Distance Runaround" "06 The Fish (Schindleria Praematurus)" "07 And You And I_ Cord Of Life_Eclipse_The Preacher The Teacher_The Apocalypse" "08 Roundabout" "09 I've Seen All Good People_ Your Move_All Good People")) ,(make-album "Yes" "Union" `("01 I Would Have Waited Forever" "02 Shock To The System" "03 Masquerade" "04 Lift Me Up" "05 Without Hope You Cannot Start The Day" "06 Saving My Heart" "07 Miracle Of Life" "08 Silent Talking" "09 The More We Live_Let Go" "10 Angkor Wat" "11 Dangerous (Look in the Light of What You're Searching For)" "12 Holding On" "13 Evensong" "14 Take The Water To The Mountain")) ,(make-album "Young DMC" "Millennium Hip-Hop Party" `("05 Bust A Move")))))