function r = randq
    % randq   Random qtn with integer coefficients.
    r = qtn(randi(9,1,4)) - qtn(randi(9,1,4));
end