0<
* 0< ( val -- cond )

return a flag that is true if val is lower than zero
 simulate:
  : 0< 0 < ;

core ordinary primitive