c : 'abcdefghijklmnopqrstuvwxyz'

 c []
 $s
 #c j
 if j > 0
    - j
    + c.j $s 1
    goif
 endif
 $s []