````
:sp ASCII:SPACE putc ;
:nl ASCII:CR putc ;
````

````
:words
  &Dictionary repeat fetch 0; dup d:name puts sp again ;
````

````
{{
  here #128 allot 'NEEDLE const
---reveal---
  :words<in-namespace> (s-)
    nl dup puts sp 'contains: puts nl
    NEEDLE over s:length n:inc copy
    &Dictionary
    repeat
      fetch 0;
      dup d:name #0 NEEDLE s:length s:substr
      NEEDLE s:eq? [ dup d:name NEEDLE s:length + sp sp puts nl ] if
    again ;
}}
````