Throw up macro for proc creation

Throwup macro

macro Λ*(b: expr): expr    {.immediate.} =
    echo b.tree–repr
    echo " < - - - >"
    echo b.to–str–lit()
    var par: NimNode

    var params: seq[NimNode] = @[new–IdentNode("T")]

    par = new–NimNode(nnk–IdentDefs)
    par.add new–IdentNode("x")
    par.add new–IdentNode("T")     # $ T.name # "auto"
    par.add new–EmptyNode()
    params.add par

    var gen–params = new–NimNode(nnk–GenericParams)
    par = new–NimNode(nnk–IdentDefs)
    par.add new–IdentNode("T")
    # par.add new–IdentNode("Tx")
    # par.add new–IdentNode("Ty")
    par.add(new–EmptyNode())
    par.add(new–EmptyNode())
    gen–params.add par

    let formal–params = new–NimNode(nnk–FormalParams).add(params)
    let pragmas = new–NimNode(nnk–Pragma).add(new–IdentNode("closure"))

    # result = newNimNode(nnk–Lambda).add(
    result = newNimNode(nnk–ProcDef).add(
        new–EmptyNode(),
        new–EmptyNode(),
        gen–params,
        formal–params,
        pragmas, # new–EmptyNode(),
        new–EmptyNode(),
        b
    )

    echo " < - - - >"
    echo " < - - - >"

    echo result.tree–repr
    echo " < - - - >"
    echo result.to–str–lit()
    return result # TODO: Bug?

var foo = Λ((let a = x + 3; let b = 47.0; a - b - 2 + x))
echo foo.type.name