it's funny :)
alias slen {
var %text = $1-,%x = $len($1-),%simb = 1,%laikas = 1
window @slenka
while %x >= %simb {
.timer $+ %simb $+ 1 1 $calc(%simb - 2) clear @slenka
.timer $+ %simb $+ 2 1 $calc(%simb - 2) echo @slenka $mid(%text,$calc(%simb + 1),$len(%text)) $mid(%text,1,%simb)
inc %simb
}
}