'start' jmp :lastchar dup 'length' swap get num 1 sub swap 1 swap 'charAt' swap obj ret :isconsonant dup 'b' = swap dup 'c' = swap dup 'd' = swap dup 'f' = swap dup 'g' = swap dup 'h' = swap dup 'j' = swap dup 'k' = swap dup 'l' = swap dup 'm' = swap dup 'n' = swap dup 'p' = swap dup 'q' = swap dup 'r' = swap dup 's' = swap dup 't' = swap dup 'v' = swap dup 'w' = swap dup 'x' = swap 'z' = swap or or or or or or or or or or or or or or or or or or or ; 19*or ret :start dup 0 swap 'toLowerCase' swap obj 'lastchar' call 'isconsonant' call 'noadding' jf 'a' add :noadding 'Скрипт правильно обработал никнейм ' swap add alert