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

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

---

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