sys.seed:sys.ms
cons: "|" split "b|c|d|f|g|h|j|k|l|m|n|p|r|s|t|v|w|z|ch|sh|zh|th"
 vow: "|" split "a|e|i|o|u|y|ee|ai|ae|au"

on syl do random[vow],random[cons] end
on word do syl @ range random[1,2,3,4] end
on words x do " " fuse word @ range x end
speak:words[7]
show[speak]