untypeExpr' :: UnPosTExpr -> E.UnPosExpr
untypeExpr' (Call trg name args _r)
    = E.QualCall (untypeExpr trg) name (map untypeExpr args)
untypeExpr' :: UnPosTExpr -> E.UnPosExpr
untypeExpr' (Call trg name args _r)
    = E.QualCall (untypeExpr trg) name (map untypeExpr args)
untypeExpr' (Call trg name args _r)
    = E.QualCall (untypeExpr trg) name (map untypeExpr args)