ppStatement (GenForStmt gvs fs)
  = text "generate" <> char '\n' <>
    vcat (map ppItem gvs) <> char '\n' <>
    vcat (map ppStatement fs) <> char '\n' <>
    text "endgenerate"
ppStatement (GenForStmt gvs fs)
  = text "generate" <> char '\n' <>
    vcat (map ppItem gvs) <> char '\n' <>
    vcat (map ppStatement fs) <> char '\n' <>
    text "endgenerate"
ppStatement (GenForStmt gvs fs)
  = text "generate" <> char '\n' <>
    vcat (map ppItem gvs) <> char '\n' <>
    vcat (map ppStatement fs) <> char '\n' <>
    text "endgenerate"