Bing Wallpaper Downloader

let DownloadAllWallpapers fmt =
   let ImgUrl u= sprintf "http://www.bing.com%s" u
   let SaveFile (url:string) (bytes:byte array)= File.WriteAllBytes("Downloads/" + Path.GetFileName(url),bytes)
   Directory.CreateDirectory("Downloads")|>ignore
   printfn "Downloading Image Urls..."
   Seq.initInfinite  (fun i-> i+1)
   |>Seq.map (fun u-> Wallpaper.Load (BuildUrl fmt u))
   |>Seq.truncate 16
   |>Seq.map (fun r->r.Images)           
   |>Seq.concat
   |>Seq.map (fun x->x.Url)
   |>Seq.distinct
   |>Seq.iter (fun img ->match Http.Request(ImgUrl img).Body with |Binary bytes -> SaveFile img bytes
                                                                                   printfn "%s" (ImgUrl img)
                                                                  |_->())
   printfn "Download complete"