changequote(<,>)define(e,$@$@$@)patsubst(patsubst(Baby0Mommy0Daddy0Grandma0Grandpa0Let's go huntRun awaySafe at lastIt's the end,0,< shark>),.[^A-Z]*,e(<\&,e(< doo doo>)>
)\&!
)