+     -     *     /     %     <     >     =     <=     >=  
  RANDOM     BITOR     BITXOR     BITSHIFT     ++     -- 
  INF        CEIL      FLOOR      SQRT         PI     ROUND  
  SIN        COS       TAN        ASIN         ACOS   ATAN
  ATAN2      DIST3D    XYZ_TO_POLAR     POLAR_TO_XYZ  
  EXP        LOG       LOG10      FABS         POW    FRAND
  FMOD       MODF      AND     OR     NOT
  SRAND      GETSEED   SETSEED

: defdict
{
"infcheck"   "error? 1 = if pop inf then"
"+"          "+ infcheck"
"-"          "- infcheck"
"*"          "* infcheck"
"/"          "/ infcheck"
"sqrt"       "dup -1 = if 2 set_error else sqrt infcheck then"
"round"      "round infcheck"
"sin"        "sin infcheck"
"cos"        "cos infcheck"
"tan"        "tan infcheck"
"asin"       "asin infcheck"
"acos"       "acos infcheck"
"atan2"      "atan infcheck"

;
  
: install
var item
var value
defdict foreach value ! item !
prog "/_defs/" item @ strcat value @ setprop
repeat
me @ "Infinity library installed." notify
;