Promise.make (fun reject resolve  => resolve "Hello")
  |> Promise.map (fun s => s ^ ", World!")
  |> Promise.finally (fun err => print_endline @@ "Error: " ^ err) (fun s => print_endline s );