indirPass :: [Expr] -> [Expr]
indirPass = map conv
    where conv (Instr i args) = Instr i (map convParens args)
          conv x = x
          convParens (Parens xpr) = AddrIndir xpr
          convParens x = x

-- Remove 'Parens' exprs, as we no longer need them
indirPass :: [Expr] -> [Expr]
indirPass = map conv
    where conv (Instr i args) = Instr i (map convParens args)
          conv x = x
          convParens (Parens xpr) = AddrIndir xpr
          convParens x = x

-- Remove 'Parens' exprs, as we no longer need them
indirPass = map conv
    where conv (Instr i args) = Instr i (map convParens args)
          conv x = x
          convParens (Parens xpr) = AddrIndir xpr
          convParens x = x

-- Remove 'Parens' exprs, as we no longer need them