{
  "schema": "ailang/v0",
  "name": "list_map",
  "imports": [],
  "defs": [
    {
      "kind": "type",
      "name": "IntList",
      "doc": "Singly-linked list of Int, boxed.",
      "ctors": [
        { "name": "Nil", "fields": [] },
        {
          "name": "Cons",
          "fields": [
            { "k": "con", "name": "Int" },
            { "k": "con", "name": "IntList" }
          ]
        }
      ]
    },
    {
      "kind": "fn",
      "name": "map_int",
      "type": {
        "k": "fn",
        "params": [
          {
            "k": "fn",
            "params": [{ "k": "con", "name": "Int" }],
            "ret": { "k": "con", "name": "Int" },
            "effects": []
          },
          { "k": "con", "name": "IntList" }
        ],
        "ret": { "k": "con", "name": "IntList" },
        "effects": []
      },
      "params": ["f", "xs"],
      "doc": "Apply f to every element. Recursive on the tail.",
      "body": {
        "t": "match",
        "scrutinee": { "t": "var", "name": "xs" },
        "arms": [
          {
            "pat": { "p": "ctor", "ctor": "Nil", "fields": [] },
            "body": {
              "t": "ctor",
              "type": "IntList",
              "ctor": "Nil",
              "args": []
            }
          },
          {
            "pat": {
              "p": "ctor",
              "ctor": "Cons",
              "fields": [
                { "p": "var", "name": "h" },
                { "p": "var", "name": "t" }
              ]
            },
            "body": {
              "t": "ctor",
              "type": "IntList",
              "ctor": "Cons",
              "args": [
                {
                  "t": "app",
                  "fn": { "t": "var", "name": "f" },
                  "args": [{ "t": "var", "name": "h" }]
                },
                {
                  "t": "app",
                  "fn": { "t": "var", "name": "map_int" },
                  "args": [
                    { "t": "var", "name": "f" },
                    { "t": "var", "name": "t" }
                  ]
                }
              ]
            }
          }
        ]
      }
    },
    {
      "kind": "fn",
      "name": "print_list",
      "type": {
        "k": "fn",
        "params": [{ "k": "con", "name": "IntList" }],
        "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": "let",
              "name": "_print_h",
              "value": {
                "t": "do",
                "op": "io/print_int",
                "args": [{ "t": "var", "name": "h" }]
              },
              "body": {
                "t": "app",
                "fn": { "t": "var", "name": "print_list" },
                "args": [{ "t": "var", "name": "t" }]
              }
            }
          }
        ]
      }
    },
    {
      "kind": "fn",
      "name": "main",
      "type": {
        "k": "fn",
        "params": [],
        "ret": { "k": "con", "name": "Unit" },
        "effects": ["IO"]
      },
      "params": [],
      "doc": "Build [1,2,3], double each, print result.",
      "body": {
        "t": "let",
        "name": "xs",
        "value": {
          "t": "ctor",
          "type": "IntList",
          "ctor": "Cons",
          "args": [
            { "t": "lit", "lit": { "kind": "int", "value": 1 } },
            {
              "t": "ctor",
              "type": "IntList",
              "ctor": "Cons",
              "args": [
                { "t": "lit", "lit": { "kind": "int", "value": 2 } },
                {
                  "t": "ctor",
                  "type": "IntList",
                  "ctor": "Cons",
                  "args": [
                    { "t": "lit", "lit": { "kind": "int", "value": 3 } },
                    {
                      "t": "ctor",
                      "type": "IntList",
                      "ctor": "Nil",
                      "args": []
                    }
                  ]
                }
              ]
            }
          ]
        },
        "body": {
          "t": "app",
          "fn": { "t": "var", "name": "print_list" },
          "args": [
            {
              "t": "app",
              "fn": { "t": "var", "name": "map_int" },
              "args": [
                {
                  "t": "lam",
                  "params": ["x"],
                  "paramTypes": [{ "k": "con", "name": "Int" }],
                  "retType": { "k": "con", "name": "Int" },
                  "effects": [],
                  "body": {
                    "t": "app",
                    "fn": { "t": "var", "name": "*" },
                    "args": [
                      { "t": "var", "name": "x" },
                      { "t": "lit", "lit": { "kind": "int", "value": 2 } }
                    ]
                  }
                },
                { "t": "var", "name": "xs" }
              ]
            }
          ]
        }
      }
    }
  ]
}