Call me Ro, all my friends do.
proc a> {a args} {eval [list interp alias {} $a {}] $args}
a> p puts ; a> s set
a> sr list ::S ; a> ss s [sr] ; ss {1 2 3}
a> . eval {lindex [ss] 0}
a> drop eval {ss [lreplace [ss] 0 0]}
a> ex eval {eval [.] ; drop}