module Base = Lang_base let rec printExpr = function e -> Base.printExpr_base printExpr e let rec printStmtLines = function s -> Base.printStmtLines_base printExpr printStmtLines s let printStmt s = (String.concat "\n" (printStmtLines s)) ^ "\n"