@prog impediment.muf:slurred
1 9999 d
1 i
: main
	"sch" "s" subst
	"aa" "a" subst
	"ll" "l" subst
	"ff" "f" subst
	"sch" "x" subst
	"ssch" "schsch" subst
	" " explode
	begin dup 1 > while
		1 - swap
		random 5 % not if
			random 3 %
			     dup 2 =  if " ..."
			else dup 1 = eif " *burp*"
			else             " *hic*"
			then
			swap pop strcat
		then
		rot " " swap strcat strcat swap
	loop
	pop
;
.
c
q