\ 0: Initial release 11/07/2002, Brad Eckert
\ 1: Made 4tH version, Hans Bezemer

[UNDEFINED] PI [IF]
[UNDEFINED] >FLOAT [IF] [ABORT] [THEN]
: PI  ( r -- ) s" 3.1415926535897932384626433832795" s>float ;
: E   ( r -- ) s" 2.7182818284590452353602874713527" s>float ;
[THEN]