add T#ancestor? method
Print_Stmt#translate handles e.g. 'print *,a(88)' ('a' distributed) right
update TODO