Fix ST magic-do and inlining - #3444

var sumOfSquares = (function __do() {
    var v = {
        value: 0
    };
    var loop = function (v1) {
        if (v1 === 0) {
            return Control_Monad_ST_Internal.read(v);
        };
        return function __do() {
            var v2 = v.value = (function (v2) {
                return v2 + (v1 * v1 | 0) | 0;
            })(v.value);
            return loop(v1 - 1 | 0)();
        };
    };
    return loop(100)();
})();
var main = Effect_Console.logShow(Data_Show.showInt)(sumOfSquares);
var counter = (function __do() {
    var v = 0;
    (function () {
        while ((function __do() {
            return v < 10;
        })()) {
            (function __do() {
                var v1 = v = (function (v1) {
                    return v1 + 1 | 0;
                })(v);
                return Data_Unit.unit;
            })();
        };
        return {};
    })();
    return v;
})();