printStmt (StmtForEach name start end body) = "for ("
                                               ++ name ++ " = " ++ printExpr start ++ "; "
                                               ++ name ++ " < " ++ printExpr end ++ "; "
                                               ++ name ++ "++) {\n"
                                               ++ indent 2 (printBlock body)
                                               ++ "}"
printStmt (StmtForEach name start end body) = "for ("
                                               ++ name ++ " = " ++ printExpr start ++ "; "
                                               ++ name ++ " < " ++ printExpr end ++ "; "
                                               ++ name ++ "++) {\n"
                                               ++ indent 2 (printBlock body)
                                               ++ "}"
printStmt (StmtForEach name start end body) = "for ("
                                               ++ name ++ " = " ++ printExpr start ++ "; "
                                               ++ name ++ " < " ++ printExpr end ++ "; "
                                               ++ name ++ "++) {\n"
                                               ++ indent 2 (printBlock body)
                                               ++ "}"