12 lines
106 B
Text
12 lines
106 B
Text
|
c : 'abcdefghijklmnopqrstuvwxyz'
|
||
|
|
|
||
|
|
c []
|
||
|
|
$s
|
||
|
|
#c j
|
||
|
|
if j > 0
|
||
|
|
- j
|
||
|
|
+ c.j $s 1
|
||
|
|
goif
|
||
|
|
endif
|
||
|
|
$s []
|