COPYCAT> (init-ccat 'abc 'abd 'ijk :no-graphics t)
NIL
COPYCAT> (send *answer-string* :pstring)
"ijl"
COPYCAT> (init-ccat 'aabc 'aabd 'ijkk :no-graphics t)
NIL
COPYCAT> (send *answer-string* :pstring)
"ijll"