%% syntaxe : any isnum --> booleen
/isnum {
   dup isreal 
   exch isinteger or
} def