1hko

{"approved_at_utc":null,"subreddit":"exjw","selftext":"No paywall so far. Please read in link, so it gets clicks. Translate with your browser. ","author_fullname":"t2_13lcbzt","saved":false,"mod_reason_title":null,"gilded":0,"clicked":false,"title":"Brilliant written opinion from a journalist attending trial. Read!","link_flair_richtext":[{"e":"text","t":"News"}],"subreddit_name_prefixed":"r/exjw","hidden":false,"pwls":7,"link_flair_css_class":"news","downs":0,"thumbnail_height":81,"top_awarded_type":null,"hide_score":false,"name":"t3_1r0f04n","quarantine":false,"link_flair_text_color":"dark","upvote_ratio":0.97,"author_flair_background_color":null,"ups":59,"total_awards_received":0,"media_embed":{},"thumbnail_width":140,"author_flair_template_id":"9d802a98-b766-11e6-a40a-0e1cfceb9f30","is_original_content":false,"user_reports":[],"secure_media":null,"is_reddit_media_domain":false,"is_meta":false,"category":null,"secure_media_embed":{},"link_flair_text":"News","can_mod_post":false,"score":59,"approved_by":nul

1hko

open Core
open Async

(* Copy data from the reader to the writer, using the provided buffer
   as scratch space *)
let rec copy_blocks buffer r w =
  Reader.read r buffer
  >>= function
  | `Eof -> return ()
  | `Ok bytes_read ->