word>morse ( str -- morse )


Vocabulary
morse.private

Inputs
stran object


Outputs
morsean object


Definition
USING: morse sequences splitting ;

IN: morse.private

: word>morse ( str -- morse )
[ ch>morse ] { } map-as join-words ;