apl>" <-APL2-------------------- sam185.txt ---------------------------->


apl>" <- Character reduce ---------------------------------------------->


apl>" Outputs s/b respectively 'k', 1, 0, 'k', 0, 1


apl>=/'k'

k

apl>=/'kk'

1

apl>=/'kkk'

0

apl>^=/'k'

k

apl>^=/'kk'

0

apl>^=/'kkk'

1

apl>)off