>> ) > ) > ) > ) ,WH-NUMHOST) (T ,WH-HOSTNUM)>>> > .STR .CT>> > !\.> > .STR .CT>> > !\.> > .STR .CT>> > !\.> > .STR .CT>> .CT>>>> )) #DECL ((VAL) FIX (STR) STRING (STRT DIV) FIX) >>> .ANY?> > >>> > )> >> > !\0>)> )>>> ) (STR 15) (T )>>>) (BUF >) (CH <>)) #DECL ((TARG) STRING (FIRST?) > (BUF) STRING (CH) FALSE> (ITARG) ) > ) (T )) #DECL ((S1 S2) STRING) > >> %<- >>>>)> <1 .S2 .CHR>> .ITARG .STR> )> >> ) MSTR) #DECL ((NS MSTR) STRING (CS STR) ) > >>:FIX> >)>) (T )> > > !\#> >) ( > ,BREAKS>> > 1>> ,BREAKS>> >> )> ) (T )> >)>) ( > >) (T >>)>) (T > .BUF>> >)>>)> > <>)>>> )> >> > >)>>> >)> > >)> >>> \ 1>>) (,WH-HOSTNUM > !\.> > .ACC>> >) ( > >> <- >>>) (T > .ACC>> )> >>) (!'(,WH-NUMHOST ,WH-HOSTNAME) > > > >>) (,WH-NICKNAMES .STR>> > > >>>) (T >>> > .TS)>>>)>> >)> ,BREAKS> )> >>> >)> ,BREAKS>> )> >>>