sub ATOa {
    my $code = '('
             . join( ',', map { "\\substr(\$_[0], $_)" } 0 .. length( $_[0] ) )
             . ')';
    return eval $code;
}