////////////////////////////////////////////////////////////////
//
//     https://www.planetquantum.com/News/140129.txt
//
////////////////////////////////////////////////////////////////

C:\Temp>qconsole
>(Setq url "https://itunes.apple.com/lookup?bundleId=gov.nasa.NASA")
"https://itunes.apple.com/lookup?bundleId=gov.nasa.NASA"
>(Setq webClient (New WebClient))
System.Net.WebClient
>(Setq json (webClient.DownloadString url))
"\n\n\n{\n \"resultCount\":1,\n \"results\": [\n{\"kind\":\"software\", \"features\":[\"iosUniversal\"], \n\"supportedDe
...
ersion\":61, \"trackContentRating\":\"4+\", \"averageUserRating\":3.5, \"userRatingCount\":43001}]\n}\n\n\n"
>JsonConvert
Jayrock.Json.Conversion.JsonConvert
>(Setq dict (JsonConvert.Import json))
{"resultCount":1,"results":[{"kind":"software","features":["iosUniversal"],"supportedDevices":["iPhone5s","iPhone4S","iP
...
g":3.5,"userRatingCount":43001}]}
>(Setq resultCount (Elt dict "resultCount"))
1
>(Setq results (Elt dict "results"))
[{"kind":"software","features":["iosUniversal"],"supportedDevices":["iPhone5s","iPhone4S","iPodTouchFifthGen","iPhone-3G
...
ersion":4.0,"userRatingCountForCurrentVersion":61,"trackContentRating":"4+","averageUserRating":3.5,"userRatingCount":43
001}]
>(Setq result (Elt results 0))
{"kind":"software","features":["iosUniversal"],"supportedDevices":["iPhone5s","iPhone4S","iPodTouchFifthGen","iPhone-3GS
...
rsion":4.0,"userRatingCountForCurrentVersion":61,"trackContentRating":"4+","averageUserRating":3.5,"userRatingCount":430
01}
>(Elt result "artistName")
"NASA"
>(Elt result "version")
"3.14"
>(Elt result "bundleId")
"gov.nasa.NASA"
>(Elt result "trackId")
334325516
>(Elt result "trackName")
"NASA App"
>(Elt result "price")
0.00
>(Elt result "formattedPrice")
"Free"
>(Elt result "sellerUrl")
"https://www.nasa.gov/connect/apps.html"
>(Elt result "artworkUrl100")
"https://a1633.phobos.apple.com/us/r30/Purple6/v4/66/e5/8b/66e58b49-b2c0-1191-e013-6f0a4fcd50ac/mzl.vxwlkums.jpg"
>(Elt result "trackViewUrl")
"https://itunes.apple.com/us/app/nasa-app/id334325516?mt=8&uo=4"
>(Setq screenshotUrls (Elt result "screenshotUrls"))
["https://a1.mzstatic.com/us/r30/Purple/v4/c8/fc/a3/c8fca3d1-841a-7a08-5315-891ef128d071/screen1136x1136.jpeg","https://a5
...
f6/02/75/f6027517-921c-4703-e273-a54975179e22/screen1136x1136.jpeg"]
>screenshotUrls.Count
5
>(Elt screenshotUrls 0)
"https://a1.mzstatic.com/us/r30/Purple/v4/c8/fc/a3/c8fca3d1-841a-7a08-5315-891ef128d071/screen1136x1136.jpeg"
>(Elt result "averageUserRatingForCurrentVersion")
4.0
>