#ocaml

let ( >>= ) = Lwt.bind
let ( let* ) = Lwt.bind

(* Prints hello after world *)
let _ = f "hello" () >>= f "world"

(* Prints world after hello *)
let _ = let* u = f "hello" () in f "world" u

Can you write f? What's going on?
#ocaml #lwt

#ocaml binding operator abuse

let ( let< ) ic f =
Fun.protect ~finally:(fun () -> In_channel.close ic) (fun () -> f ic)

let () =
let< ic = In_channel.open_text Sys.argv.(1) in
In_channel.input_lines ic
|> List.concat_map (String.split_on_char ' ')
|> List.iter print_string