var N = 10000;
var M = 355;
var L = 90; // ３連敗は理論上は０回から89回起こり得る

var a = new Array(L);
for (var i = 0; i < L; ++i) a[i] = 0;

var p = WScript.Arguments(0) - 0;

for (var i = 0; i < N; ++i) {

    var n = 0; // 現時点の連勝数
    var m = 0; // ３連敗の起きた回数

    for (var j = 0; j < M; ++j) {

        if (Math.random() > p) { // 負けの場合
            ++n;
        } else { // 勝ちの場合
            if (n == 3) ++m; // ３連敗をカウント
            n = 0;
        }
    }

    if (n == 3) ++m; // ３連敗で終了のケース
    ++a[m];
}

for (var i = 0; i < L; ++i) {
    WScript.StdOut.WriteLine(i + "\t" + a[i]);
}