"Source: Text/System/State.text";
"Line: 1377";
"Date: Thu Sep 25 21:32:21 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/System/State.text, line: 1377
// Example: H1E14 ()
print "Example: H1E14";
ei := GetEchoInput();
SetEchoInput(true);
x := Random(1, 100);
while x gt 1 do
    x;
    if IsEven(x) then
        x div:= 2;
    else
        x := 3*x+1;
    end if;
end while;
SetEchoInput(ei);
