ppAssignment :: Assignment -> Doc
ppAssignment (Assignment x expr)
  = ppLValue x <+> equals <+> ppExpr expr
ppAssignment :: Assignment -> Doc
ppAssignment (Assignment x expr)
  = ppLValue x <+> equals <+> ppExpr expr
ppAssignment (Assignment x expr)
  = ppLValue x <+> equals <+> ppExpr expr