gistfile1.txt

[
  structure_item (test.ml[8,78+0]..[13,135+17])
    Pstr_value Nonrec
    [
      <def>
        pattern (test.ml[8,78+4]..[8,78+5])
          Ppat_any
        expression (test.ml[9,86+2]..[13,135+17])
          Pexp_apply
          expression (test.ml[9,86+2]..[13,135+17])
            Pexp_ident "Lwt.try_bind" (test.ml[9,86+2]..[13,135+17])
          [
            <arg>
            Nolabel
              expression (test.ml[9,86+2]..[13,135+17])
                Pexp_fun
                Nolabel
                None
                pattern (test.ml[9,86+2]..[13,135+17])
                  Ppat_construct "()" (test.ml[9,86+2]..[13,135+17])
                  None
                expression (test.ml[10,98+4]..[10,98+19])
                  Pexp_ident "Lwt.return_unit" (test.ml[10,98+4]..[10,98+19])
            <arg>
            Nolabel
              expression (test.ml[9,86+2]..[13,135+17])
                Pexp_function
                [
                  <case>
                    pattern (test.ml[12,125+4]..[12,125+6])
                      Ppat_construct "()" (test.ml[12,125+4]..[12,125+6])
                      None
                    expression (test.ml[13,135+4]..[13,135+17])
                      Pexp_apply
                      expression (test.ml[13,135+4]..[13,135+14])
                        Pexp_ident "Lwt.return" (test.ml[13,135+4]..[13,135+14])
                      [
                        <arg>
                        Nolabel
                          expression (test.ml[13,135+15]..[13,135+17])
                            Pexp_construct "()" (test.ml[13,135+15]..[13,135+17])
                            None
                      ]
                ]
            <arg>
            Nolabel
              expression (test.ml[9,86+2]..[13,135+17])
                Pexp_function
                [
                  <case>
                    pattern (_none_[1,0+-1]..[1,0+-1]) ghost
                      Ppat_var "exn" (_none_[1,0+-1]..[1,0+-1]) ghost
                    expression (_none_[1,0+-1]..[1,0+-1]) ghost
                      Pexp_apply
                      expression (_none_[1,0+-1]..[1,0+-1]) ghost
                        Pexp_ident "Lwt.fail" (_none_[1,0+-1]..[1,0+-1]) ghost
                      [
                        <arg>
                        Nolabel
                          expression (_none_[1,0+-1]..[1,0+-1]) ghost
                            Pexp_ident "exn" (_none_[1,0+-1]..[1,0+-1]) ghost
                      ]
                ]
          ]
    ]
]