sirala inc -u %a | echo -a $$nick($1,%a) | â $1
â sirala $1

x inc -u1 %8 | echo -a $nick($1,%8) | $iif(%8 < $nick($1,0),sirala $1)
sirala x $1

sirala $iif(%s == $nick($1,0),unset %s,s $1)
s inc %s | echo -a $nick($1,%s) | .sirala $1

sirala { inc -u1 %s | $iif(%s <= $nick($1,0),x $1) }
x { echo -a $nick($1,%s) | sirala $1 }

sirala set %s 1 | a $1
q if %s <= $nick($1,0) { echo -a $nick($1,%s) | inc %s | a $1 }
a q $1

sirala { unset %d_ | .remove sirala.txt | %d_c = $1 | write sirala.txt $str(d_read $crlf,$nick($1,0)) | .play -c sirala.txt 10 }
d_read inc %d_ | echo -a $nick(%d_c,%d_)

sirala savebuf -l $1 x.txt | loadbuf -a x.txt