@prog impediment.muf:stutter
1 9999 d
1 i
: dipthong?
	"wh th sh ph ch cz tr sp sm" swap instring
;
: choose-prefix (word -- word prefix)
	dup 2 strcut pop
	dup dipthong? not if 1 strcut pop then
	"-" strcat
;
: multiply-prefix (prefix n -- multiple-prefix)
	dup begin dup 1 > while 3 pick -rot 1 - loop pop "" implode
;
: stutter-word (sN ... si ... s1 N i -- sN ... si' ... s1 N)
	random 1 & if pop exit then
	dup 2 + rotate
	choose-prefix
	random 3 % 1 + multiply-prefix
	swap strcat
	swap 1 + neg rotate
;
: main
	" " explode dup 1 -1 for stutter-word loop " " implode
;
.
c
q