include /forth/cat.f

: ns s" #p/1/ns" scat ;
