======
Arrows
======

def foo (A B : *) (f : A -> A -> B) (x : A) := f x x;

---

(program
  (definition
    (identifier)
    (param_block
      (identifier)
      (identifier)
      (expr
        (app_term
          (app
            (term
              (star))))))
    (param_block
      (identifier)
      (expr
        (arrow
          (app_term
            (app
              (term
                (identifier))))
          (expr
            (arrow
              (app_term
                (app
                  (term
                    (identifier))))
              (expr
                (app_term
                  (app
                    (term
                      (identifier))))))))))
    (param_block
      (identifier)
      (expr
        (app_term
          (app
            (term
              (identifier))))))
    (expr
      (app_term
        (app
          (term
            (identifier))
          (term
            (identifier))
          (term
            (identifier)))))))