clean-hipku ( hipku extra -- words )


Vocabulary
hipku.private

Inputs
hipkuan object
extraan object


Outputs
wordsan object


Definition
USING: ascii kernel sequences splitting ;

IN: hipku.private

: clean-hipku ( hipku extra -- words )
[ >lower " .\n" split harvest ]
[ [ member? ] curry reject " " join ] bi* ;