@prog impediment.muf:lisp
1 9999 d
1 i
: do_lisp
	"th" "ss" subst
	"th" "s" subst
	"Th" "S" subst
;
.
c
q