Untitled

    stateTest = [
        defn "newObj" [] [
            def "inner-state" (sym "inner-state"),

            defn "change-state" ["state"] [
                set "inner-state" (Symbol "state") ],

            defn "return" [] [ Symbol "inner-state" ],

            defn "continuation" ["fun"] [
                S [ Symbol "fun", Symbol "change-state", Symbol "return" ] ],

            Symbol "continuation"
        ],
        defn "test1" ["change", "return"] [
            S [ Symbol "change", sym "LOL U" ],
            S [ Symbol "return" ]
        ],
        defn "test2" ["change", "return"] [
            S [ Symbol "return" ]
        ],
        def "obj" (S [ Symbol "newObj" ]),
        def "obj2" (S [ Symbol "newObj" ]),
        S [ Symbol "obj", Symbol "test2" ],
        S [ Symbol "obj2", Symbol "test2" ],
        S [ Symbol "obj", Symbol "test1" ],
        S [ Symbol "obj2", Symbol "test2" ]
        ]