sub teledecode {
        @tab = ();
        return arrangecode( '', 0, @telear[ split //, $_[0] ] );
    }