(program
  1.0.0
  (lam
    datum
    (lam
      rdmr
      (lam
        ctx
        [
          (lam
            a
            [
              (lam b [ [ (lam sample_thing sample_thing) (lam a a) ] a ])
              (con bool False)
            ]
          )
          (con bool True)
        ]
      )
    )
  )
)