Checks for existence of "bloop" and "n:abs"

~~~
: executeByName (s-)
  d:lookup [ d:xt fetch ] [ d:class fetch ] bi call ;

'bloop 'n:abs [ find nip ] bi@ and
  [ 'bloop executeByName 'n:abs executeByName ] if
~~~