ppStatement (AssignStmt assignment)
  = text "assign" <+> ppAssignment assignment <> semi
ppStatement (AssignStmt assignment)
  = text "assign" <+> ppAssignment assignment <> semi
ppStatement (AssignStmt assignment)
  = text "assign" <+> ppAssignment assignment <> semi