(typed
  (app
    (lamb
      (list
        (coprod
          int
          int))
      (case-on
        (index 0)
        (right
          int
          1)
        (left
          int
          2)))
    (list
      (left
        int
        3)))
  (coprod
    int
    int))