a # 1 60 R ' cformat                                                    '
a # a,[1]  '"assumes a and b have been localized                        '
a # a,[1]  ' C''a#Fa H b#Fb''if(character a)^=character b                 '
a # a,[1]  ' $0                                                         '
a # a,[1]  '"cformat - ensures localized a and b are same type.         '
a # a,[1]  '"from ''the apl handbook of techniques'' copyright 1978, ibm. '
Lfx a