float :ctg ( float $RADIANS )
float :ctg ( int $DEGREES )

Returns the cotangent of given angle.

# :ctg example. Results should be equal.
!const =PI f3.1415926535
:writeln :ctg :mul f0.25 =PI   # Pi/4 
:writeln :ctg i45              # 45 degrees