ppStatement (GenIfStmt vs)
  = text "generate" $$
    vcat (map ppStatement vs) $$
    text "endgenerate"
ppStatement (GenIfStmt vs)
  = text "generate" $$
    vcat (map ppStatement vs) $$
    text "endgenerate"
ppStatement (GenIfStmt vs)
  = text "generate" $$
    vcat (map ppStatement vs) $$
    text "endgenerate"