"Source: Text/System/State.text";
"Line: 1436";
"Date: Thu Sep 25 21:32:21 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/System/State.text, line: 1436
// Example: H1E15 ()
print "Example: H1E15";
ei := GetEchoInput();
SetEchoInput(true);
x := Random(1, 1000);
x;
i := 0;
repeat
    while IsEven(x) do
        i +:= 1;
        x div:= 2;
    end while;
    if x eq 1 then
        break;
    end if;
    x := 3*x+1;
    i +:= 1;
until false;
i;
SetEchoInput(ei);
