untypeExpr' (Access trg name _r)
    = E.QualCall (untypeExpr trg) name []
untypeExpr' (Access trg name _r)
    = E.QualCall (untypeExpr trg) name []
untypeExpr' (Access trg name _r)
    = E.QualCall (untypeExpr trg) name []