let meta_loc_patt _loc location =
                      let (a, b, c, d, e, f, g, h) = Loc.to_tuple location
                      in
                        Ast.PaApp (_loc,
                          (Ast.PaId (_loc,
                             (Ast.IdAcc (_loc, (Ast.IdUid (_loc, "Loc")),
                                (Ast.IdLid (_loc, "of_tuple")))))),
                          (Ast.PaTup (_loc,
                             (Ast.PaCom (_loc,
                                (Ast.PaStr (_loc,
                                   (Ast.safe_string_escaped a))),
                                (Ast.PaCom (_loc,
                                   (Ast.PaCom (_loc,
                                      (Ast.PaCom (_loc,
                                         (Ast.PaCom (_loc,
                                            (Ast.PaCom (_loc,
                                               (Ast.PaCom (_loc,
                                                  (Ast.PaInt (_loc,
                                                     (string_of_int b))),
                                                  (Ast.PaInt (_loc,
                                                     (string_of_int c))))),
                                               (Ast.PaInt (_loc,
                                                  (string_of_int d))))),
                                            (Ast.PaInt (_loc,
                                               (string_of_int e))))),
                                         (Ast.PaInt (_loc, (string_of_int f))))),
                                      (Ast.PaInt (_loc, (string_of_int g))))),
                                   (if h
                                    then
                                      Ast.PaId (_loc,
                                        (Ast.IdUid (_loc, "True")))
                                    else
                                      Ast.PaId (_loc,
                                        (Ast.IdUid (_loc, "False")))))))))))