" <-APL2-------------------- sam185.txt ---------------------------->
" <- Character reduce ---------------------------------------------->
" Outputs s/b respectively 'k', 1, 0, 'k', 0, 1
=/'k'
=/'kk'
=/'kkk'
^=/'k'
^=/'kk'
^=/'kkk'
)off