let meta_loc_expr _loc location =
                      let (a, b, c, d, e, f, g, h) = Loc.to_tuple location
                      in
                        Ast.ExApp (_loc,
                          (Ast.ExId (_loc,
                             (Ast.IdAcc (_loc, (Ast.IdUid (_loc, "Loc")),
                                (Ast.IdLid (_loc, "of_tuple")))))),
                          (Ast.ExTup (_loc,
                             (Ast.ExCom (_loc,
                                (Ast.ExStr (_loc,
                                   (Ast.safe_string_escaped a))),
                                (Ast.ExCom (_loc,
                                   (Ast.ExCom (_loc,
                                      (Ast.ExCom (_loc,
                                         (Ast.ExCom (_loc,
                                            (Ast.ExCom (_loc,
                                               (Ast.ExCom (_loc,
                                                  (Ast.ExInt (_loc,
                                                     (string_of_int b))),
                                                  (Ast.ExInt (_loc,
                                                     (string_of_int c))))),
                                               (Ast.ExInt (_loc,
                                                  (string_of_int d))))),
                                            (Ast.ExInt (_loc,
                                               (string_of_int e))))),
                                         (Ast.ExInt (_loc, (string_of_int f))))),
                                      (Ast.ExInt (_loc, (string_of_int g))))),
                                   (if h
                                    then
                                      Ast.ExId (_loc,
                                        (Ast.IdUid (_loc, "True")))
                                    else
                                      Ast.ExId (_loc,
                                        (Ast.IdUid (_loc, "False")))))))))))