@prog impediment.muf:pronoun_sub
1 9999 d
1 i
: main
	dup "^" 1 strncmp if
		me @ swap pronoun_sub
	else
		1 strcut swap pop
	then
;
.
c
q