Commits

Anonymous committed d4b470e

endless. ...

  • Participants
  • Parent commits 1173ac8

Comments (0)

Files changed (1)

     List.fold_left get_imgurl [] (Xml.children posts_xml);;
 
 let rec endless username start =
-  (query username start)::(endless username (start+50));;
+  (query username start) @ (endless username (start+50));;
 
 let rec print_id_urls list = 
   match list with 
     | (id, url)::remain -> 
 	print_id_urls remain;;
 
-print_id_urls (query "kuenishi" 0);;
+(* print_id_urls (query "kuenishi" 0);; *)
+print_id_urls (endless "kuenishi" 50);;
 
 
 (*