{
  "schema": "ailang/v0",
  "name": "list_map_poly",
  "imports": [],
  "defs": [
    {
      "kind": "type",
      "name": "List",
      "vars": ["a"],
      "doc": "Polymorphic singly-linked list.",
      "ctors": [
        { "name": "Nil", "fields": [] },
        {
          "name": "Cons",
          "fields": [
            { "k": "var", "name": "a" },
            {
              "k": "con",
              "name": "List",
              "args": [{ "k": "var", "name": "a" }]
            }
          ]
        }
      ]
    },
    {
      "kind": "fn",
      "name": "inc",
      "type": {
        "k": "fn",
        "params": [{ "k": "con", "name": "Int" }],
        "ret": { "k": "con", "name": "Int" },
        "effects": []
      },
      "params": ["x"],
      "doc": "Add 1 to an Int.",
      "body": {
        "t": "app",
        "fn": { "t": "var", "name": "+" },
        "args": [
          { "t": "var", "name": "x" },
          { "t": "lit", "lit": { "kind": "int", "value": 1 } }
        ]
      }
    },
    {
      "kind": "fn",
      "name": "map",
      "type": {
        "k": "forall",
        "vars": ["a", "b"],
        "body": {
          "k": "fn",
          "params": [
            {
              "k": "fn",
              "params": [{ "k": "var", "name": "a" }],
              "ret": { "k": "var", "name": "b" },
              "effects": []
            },
            {
              "k": "con",
              "name": "List",
              "args": [{ "k": "var", "name": "a" }]
            }
          ],
          "ret": {
            "k": "con",
            "name": "List",
            "args": [{ "k": "var", "name": "b" }]
          },
          "effects": []
        }
      },
      "params": ["f", "xs"],
      "doc": "Polymorphic map: apply f to every element, recursing on the tail.",
      "body": {
        "t": "match",
        "scrutinee": { "t": "var", "name": "xs" },
        "arms": [
          {
            "pat": { "p": "ctor", "ctor": "Nil", "fields": [] },
            "body": {
              "t": "ctor",
              "type": "List",
              "ctor": "Nil",
              "args": []
            }
          },
          {
            "pat": {
              "p": "ctor",
              "ctor": "Cons",
              "fields": [
                { "p": "var", "name": "h" },
                { "p": "var", "name": "t" }
              ]
            },
            "body": {
              "t": "ctor",
              "type": "List",
              "ctor": "Cons",
              "args": [
                {
                  "t": "app",
                  "fn": { "t": "var", "name": "f" },
                  "args": [{ "t": "var", "name": "h" }]
                },
                {
                  "t": "app",
                  "fn": { "t": "var", "name": "map" },
                  "args": [
                    { "t": "var", "name": "f" },
                    { "t": "var", "name": "t" }
                  ]
                }
              ]
            }
          }
        ]
      }
    },
    {
      "kind": "fn",
      "name": "print_list",
      "type": {
        "k": "fn",
        "params": [
          {
            "k": "con",
            "name": "List",
            "args": [{ "k": "con", "name": "Int" }]
          }
        ],
        "ret": { "k": "con", "name": "Unit" },
        "effects": ["IO"]
      },
      "params": ["xs"],
      "doc": "Print each Int on its own line.",
      "body": {
        "t": "match",
        "scrutinee": { "t": "var", "name": "xs" },
        "arms": [
          {
            "pat": { "p": "ctor", "ctor": "Nil", "fields": [] },
            "body": { "t": "lit", "lit": { "kind": "unit" } }
          },
          {
            "pat": {
              "p": "ctor",
              "ctor": "Cons",
              "fields": [
                { "p": "var", "name": "h" },
                { "p": "var", "name": "t" }
              ]
            },
            "body": {
              "t": "seq",
              "lhs": {
                "t": "do",
                "op": "io/print_int",
                "args": [{ "t": "var", "name": "h" }]
              },
              "rhs": {
                "t": "app",
                "fn": { "t": "var", "name": "print_list" },
                "args": [{ "t": "var", "name": "t" }],
                "tail": true
              }
            }
          }
        ]
      }
    },
    {
      "kind": "fn",
      "name": "main",
      "type": {
        "k": "fn",
        "params": [],
        "ret": { "k": "con", "name": "Unit" },
        "effects": ["IO"]
      },
      "params": [],
      "doc": "Map inc over [1,2,3] via polymorphic List, then print: 2,3,4.",
      "body": {
        "t": "app",
        "fn": { "t": "var", "name": "print_list" },
        "args": [
          {
            "t": "app",
            "fn": { "t": "var", "name": "map" },
            "args": [
              { "t": "var", "name": "inc" },
              {
                "t": "ctor",
                "type": "List",
                "ctor": "Cons",
                "args": [
                  { "t": "lit", "lit": { "kind": "int", "value": 1 } },
                  {
                    "t": "ctor",
                    "type": "List",
                    "ctor": "Cons",
                    "args": [
                      { "t": "lit", "lit": { "kind": "int", "value": 2 } },
                      {
                        "t": "ctor",
                        "type": "List",
                        "ctor": "Cons",
                        "args": [
                          { "t": "lit", "lit": { "kind": "int", "value": 3 } },
                          {
                            "t": "ctor",
                            "type": "List",
                            "ctor": "Nil",
                            "args": []
                          }
                        ]
                      }
                    ]
                  }
                ]
              }
            ]
          }
        ]
      }
    }
  ]
}