\ #require d-less-zero.frt ( d1 d2 -- f ) : d< d- d0< ;