Phonological word formation in a simple CV language

The basic conditions.

A Logo word generator

to get.string
if tossup = "heads [op "] 
op (word pickrandom :consonants pickrandom :vowels get.string ) 
end

to find.word
local "new.word  make "new.word get.string 
if or empty? :new.word 6 < count :new.word 
	[op find.word] [op :new.word]
end

to tossup
op pickrandom [heads tails] 
end

to pickrandom :input
op item 1 + random count :input :input 
end

make "vowels [a i u]
make "consonants [p t k n l s]