// Example: I96c20e2
print "Example: I96c20e2";
previous_setting := GetEchoInput();
SetEchoInput(true);
SafeSqrt := function(x)
    if Sign(x) eq -1 then
        error "Error in SafeSqrt: Argument negative";
    elif IsSquare(x) then
        return Isqrt(x);      
    else
        error "Error in SafeSqrt: Argument not a square";
    end if;  
end function;
SetEchoInput(previous_setting);
