// Example: I96c20e1
print "Example: I96c20e1";
previous_setting := GetEchoInput();
SetEchoInput(true);
EvenexpOdd := function(N)
    s := 0; d := N;
    q, r := Quotrem(d, 2);
    while r eq 0 do
        s +:= 1;
        d := q;
        q, r := Quotrem(d, 2);
    end while;
    return s, d;
end function;
SetEchoInput(previous_setting);
