"Testing clock"

clear

T = clock(exp(i pi/3))
check(T == (-1)^(1/3))

T = clock(exp(-i pi/3))
check(T == -(-1)^(2/3))

check(infixform(clock(x + i y)) == "(-1)^(arctan(y,x) / pi) (x^2 + y^2)^(1/2)")
