{
  "schema": "ailang/v0",
  "name": "poly_apply",
  "imports": [],
  "defs": [
    {
      "kind": "fn",
      "name": "apply",
      "type": {
        "k": "forall",
        "vars": ["a", "b"],
        "body": {
          "k": "fn",
          "params": [
            {
              "k": "fn",
              "params": [{ "k": "var", "name": "a" }],
              "ret": { "k": "var", "name": "b" },
              "effects": []
            },
            { "k": "var", "name": "a" }
          ],
          "ret": { "k": "var", "name": "b" },
          "effects": []
        }
      },
      "params": ["f", "x"],
      "body": {
        "t": "app",
        "fn": { "t": "var", "name": "f" },
        "args": [{ "t": "var", "name": "x" }]
      }
    },
    {
      "kind": "fn",
      "name": "succ",
      "type": {
        "k": "fn",
        "params": [{ "k": "con", "name": "Int" }],
        "ret": { "k": "con", "name": "Int" },
        "effects": []
      },
      "params": ["n"],
      "body": {
        "t": "app",
        "fn": { "t": "var", "name": "+" },
        "args": [
          { "t": "var", "name": "n" },
          { "t": "lit", "lit": { "kind": "int", "value": 1 } }
        ]
      }
    },
    {
      "kind": "fn",
      "name": "main",
      "type": {
        "k": "fn",
        "params": [],
        "ret": { "k": "con", "name": "Unit" },
        "effects": ["IO"]
      },
      "params": [],
      "body": {
        "t": "do",
        "op": "io/print_int",
        "args": [
          {
            "t": "app",
            "fn": { "t": "var", "name": "apply" },
            "args": [
              { "t": "var", "name": "succ" },
              { "t": "lit", "lit": { "kind": "int", "value": 41 } }
            ]
          }
        ]
      }
    }
  ]
}