-and string_func () (name, (param_decls, code)) =
- sprintf "function%s (%s) = { ... }"
+and string_func () (name, (param_decls, returning, pure, (code, quiet))) =
+ sprintf "%sfunction%s returning %s (%s) = %s{ ... }"
+ (if pure then "pure " else "")