Prohibiting invalid states with GADT - the airlock exercise

[olleharstedt]

@olleharstedt

let () =
  let open Airlock in
  create ()  |>
  open_inner |>
  print_inner

Would someone like to show how to replace the pipe here with let*? Would that make sense?